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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


LL 3 ML-11 MEMORY svete" WITH ITS MOSTLY ARRAY TECHNOLOGY HAS 
THE FACILITY TO OFFSET AROUND KNOWN BAD MEMORY LOCATIONS IN 


ITS MEMORY ARRAYS. 


INITIALLY, THESE MEMORY ARRAYS ARE TESTED FOR BAD ROW AND COLUM?! 
ADDRESS LOCATIONS AND THE SPECIFIC OFFSETTING INFORMATION IS 
STOR N ARRAY MODULE. THIS TESTING IS DONE ON A 
SPECIAL 2224 MEMORY TESTER BY MEMORY MANUFACTURIN G. 


THE DESIGN OF THE ML11 HAS ALSO PROVIDED LOGIC THAT WHEN UNDER 

=f TWARE CONTROL WILL UPDATE AN ARRAY MODULES it ge INFOR- 
MATION. THIS LOGIC IS TO BE UTILIZED WHEN ADDITIONAL 

CELLS ARE DISCOVERED BAD AFTER THE SYSTEM HAS LEFT THE MANUFACT~ 

URING FACILITY. 


FIELD SERVICE HAS REQUESTED THE CREATION OF A PROGRAM THAT WHEN 
RUN WILL TEST A GIVEN ML-11A_ OR ML-11B SYSTEM FOR ANY. ADDITIONAL 
BAD Y t AND UPDATE THE OFFSET INFORMATION SUCH THAT THESE 
BAD LOCATIONS WILL BE MASKED FROM FURTHER OCCURANCES. 


THIS PROGRAM WILL SELECTIVELY UPDATE BAD MEMORY CELL OFFSETING 
FOR ” ENTIRE ML-11 SYSTEM, A SINGLE ARRAY MODULE OR A SINGLE 


ALL 


THE PROGRAM WILL EXERCISE AN ML~-11A OR ML-11B WITH ALL aye 
ILING MEMORY 


one AND RANDOM DATA PATTERNS TO FIND ANY ADDITIONAL FA 


ONCE THE ADDITIONAL FAILING CELLS HAVE BEEN MASKED OUT THE 
PROGRAM WILL GO BACK INTO THE FAILING CELLS AND VERIFY THAT 
THESE BAD CELLS HAVE INDEED BEEN MASKED OUT. 


THE OPERATOR WILL BE NOTIFIED OF ANY ERROR CONDITIONS WHICH 
MIGHT OCCURE DURING THE EXECUTION OF THE PROGRAM. ADDITIONAL 
INFORMATION PERTAINING TO TH a —_— MESSAGES CAN BE FOUND 
IN SECTION 3.0 OF THIS DOCUMENT 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE ( DRS> ). THESE SERVICES PROVIDE 
THE INTERFACE TO THE GPERATOR AND TO THE SOFTWARE ENVIRONMENT. 


THIS PROGRAM CAN BE USED WITH XXDP+, ACT. APT, SLIDE. 
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT 


1.2 SYSTEM REQUIREMENTS 
1. a at CENTRAL PROCESSOR WITH A MINIMUM OF 28K USABLE MAIN 


2. CONSOLE TERMINAL. 
3. RH11 OR RH70 DISK CONTROLLER. 





SEQ 0003 
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a 


e 
4. A MINIMUM OF ONE ML~11A AND ML-11B SYSTEM ATTACHED TO THE 
ABOVE RH CONTROLLER. 


5. XXDP+ LOAD MEDIA. 


1.3 RELATED DOCUMENTS AND STANDARDS 
1. SUPPRGC.DOC 
2. SUPINT.MEM 
3. SUPFUN.C 
4. XXDPPLUS.DOC 
5. BLISS LANGUAGE GUIDE 
6. BLISS-16 USER'S GUIDE 


1.4 ASSUMPTIONS 


IT WILL BE ASSUMED THAT PRIOR TO RUNNING OF THIS PROGRAM 
THAT ALL APPROPRIATE CPU AND MAIN MEMORY DIAGNOSTICS HAVE 
BEEN SUCCESSFULLY RUN ON THE ML-11°S HOST SYSTEM. 


IT IS FURTHER ASSUMED THAT THE ML-11 LOGIC TEST AND THE 
ML-11 SYSTEM EXERCISER HAS BEEN SUCCESSFULLY RUN ON 

THE ML-11 SYSTEM AND THAT THE SYSTEM EXERCISER HAS SPECIFICALLY 
CALLED OUT THE RUNNING OF THE PROM MAINTENANCE ON THIS UNIT 


THE SYSTEM EXERCISER WHEN IT CALLS FOR THE RUNNING OF THIS 

WILL INDICATE WHICH ARRAYS AND BANKS OF THE ML~11 
SYSTEM NEED” TO BE PROM MAINTENANCED. THIS INFORMATION 
SHOULD BE THEN INPUTED INTO THIS PROGRAM. 


HOWEVER THIS PROGRAM IS pa TO GIVE THE 
OPE TI PROM MA EITHE 





CAL T FOR 

FOR AN ENTIRE ARRAY MODULE (FOUR 

SELECT PROM MAINTENANCE FOR THE ENTIRE ML~11 
SYSTEM (ALL PRESENT ARRAY MODULES). 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIP 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MOR 


COMMAND EFFECT 


pay sCes 
DETAILS. 





SEQ 0004 
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1 
STATE 
: 


START START THE DIAGNOSTIC FROM AN INITIAL 

RESTART START THE DIA as os DEN WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN Saree HAL 

EXIT RETURN _TO XXDP+ a TOR (XXDP+ OP vort e ONLY!) 
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

> COT UATE A TO aes AT START TIME 

PRINT Ae STATISTICAL mig eg (IF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTI ‘ 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.5) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE ‘'STA’’ INSTEAD OF *'START"’. 


THIS PROGRAM USES THE DIAGNOSTIC RUN TIME SERVICE FOR PROGRAM 
PARAMETER INPUT, ERROR REPORTING AND MESSAGE PRINTING. 


IT IS DESINGED TO TEST ONE ML~11 SYSTEM AND IS EXPECTED TO RUN 
FROM START TO FINISH WITH NO OPERATOR INTERRUPTIONS (ie. “C). 


Lg A | THE ONLY RECOGNIZED DRS> COMMAND BY THIS PROGRAM IS 
THE ‘START’ COMMAND AND CONTROL C AND ANY OTHER DRS> COMMAND 
MUST BE AVOIDED. 


FOR STATISTICAL ANALYSIS THIS PROGRAM, UPON AN DRS> COMMAND ‘PRINT’, 
WILL DISPLAY TO THE CONSOLE TERMINAL A REPORT SUMMARY INDICATING 

WHERE THE PROGRAM HAS FOUND ADDITIONAL FAILING MEMORY CHIPS AND 

A COUNT OF FAILING ROWS AND COLUMNS WITHIN EACH CHIP. 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"’. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 

THE LIST. LIST IS A STRING OF TEST 

OR = /T ESTS: 1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5.7,8,-9,.10 TO 
L OTHER TESTS WILL NOT 6 

/PASS :DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 
/FLAGS:FLGS SET SPECIE IED FLAGS. FLAGS ARE DESCRIBED 


e.5- 
/EOP: DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ere THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10-12 
USE UNITS 0,5, "0. 11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-5/PASS: 1000/EOP: 100 






SEQ 0005 


G 1 
THE EFFECT OF THIS COMMAND WILL BE: 1), TESTS, 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL BE TESTED 1000 TIMES AND 5) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES. ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. “YOU MAY. 
FOR EXAMPLE, TYPE "'/TES:1-5"* INSTEAD OF ‘‘/TESTS:1 


BELOW 1S A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND 


TESTS PASS FLAGS EOP UNITS 


START X x x xX 
RESTART X x X X 
CONTINUE x X X 

PROCEED x 

DROP X 
ADD xX 
PRINT 
DISPLAY 
LAGS 
ZFLAGS 

XIT 


AS MENTIONED BEFORE THE PROGRAM IS DESIGNED TO TEST ONE ML~-11 
SYSTEM AND IS EXPECTED TO RUN FROM START TO FINISH WITH NO 
OPERATOR INTERRUPTIONS. 


Le 28 23 USAGE OF ANY SWITCHES WOULD PROVE MEANINGLESS TO 
THE PROGRAM AND SHOULD BE AVOIDED. 


2.3 FLAGS 


A R A STAR UNLES 

FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
COMMANDS AFFECT 











FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IXR* INHIBIT EXTENDED ERROR "REPORTS (THOSE 
CALLED BY PRINTX MACRO'S 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE BELL’ ON ERROR 


UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 
ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


SEQ 0006 
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APPLY TO DIAGNOSTICS 

STATISTICAL REPORTING) 
IDR INHIBIT PROGRAM DROPPING OF UNITS 
‘or EXECUTE 1 aaa CODE 


HAVE EVALUATION SUPPORT) 
“ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG meateng FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A 'BELL'’ ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS: LOE: IER:B0E 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘CHANGE HW (L) 2° 
YOU MUST ANSWER "'Y’’ AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN 'PRELOADED'' USING THE SETUP UTILITY (SEE 
_XXDP+ USER'S ), WHEN YOU ANSWER THIS 
ITH A "Y'', THE RUNTIME SERVICES WILL ASK F 


QUESTION OR THE NUMBE 
OF UNITS (IN DECIMAL). ONLY ONE DRIVE IS ee! Mb TO BE wale 


aera 4 PER EXECUTION OF THE PROGRAM THEREFOR ANSWER THIS 
rt ite WITH "1°. YOU WILL THEN BE ASKED THE FOLLOWING 


OPTION 1 ‘IS ENTIRE ML-11 SYSTEM TO BE MASKED' 
TRANSFER ‘SYS* IF TRUE 


OPTION 2 ‘IS A SINGLE ARRAY TO = MASKED * 
TRANSFER ‘BOARD’ IS TRUE 


OPTION 3 ‘IS A SINGLE BANK TO BE MASKED’ 
TRANSFER ‘DONE’ IF FALSE 


‘ENTER BANK NUMBER TO BE MASKED* 
'BOARD' ‘ENTER BOARD NUMBER TO BE MASKED* 
'SYS' “STARTING RH REGISTER ADDRESS' 

‘DRIVE UNDER TEST NUMBER’ 
"DONE' “ARE YOUR INPUTED PARAMETERS CORRECT* 
2.5 SOFTWARE QUESTIONS 


SOFTWARE QUESTIONS ARE NOT USED DURING THIS PROGRAM AND THIS 
QUESTION SHOULD BE ANSWERED WITH A ‘NO’ RESPONCE. 


HOWEVER IF A YES RESPONCE IS GIVEN THE FOLLOWING MESSAGE WILL 
BE PRINTED: 


"NOT USED TYPE <CR>° 


H 1 
WHICH DO NOT SUPPORT 


L 
EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


SEQ 0007 
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2.6 EXTENDED P-TABLE DIALOGUE 
TRADITIONALLY ORS> PROVIDES YOU WITH THE ABILITY TO 
BUILD P-TABLES FOR MULTIPLE DRIVE TESTING. BECAUSE OF THE 
IMPACT OF THIS PROGRAM ON AN ML~-11 SYSTEM AND THE LENGTHY 
RUNTIME ONLY ONE DRIVE WILL BE PROM MAINTENANCED PER 
EXECUTION OF THIS PROGRAM. 
HOWEVER THE NATURE OF DRS> WILL STILL ALLOW YOU TO BUILD 
MULTIPLE DRIVE SELECTION FOR TESTING. THIS PROGRAM WILL 
TREAT THIS AS A SYSTEM ERROR AND SELECT THE FIRST P-TABLE 
BUILT FOR THE RUN TIME PARAMETERS. 
2.7 START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 

1. BOOT XXDP+ 

2. ENTER THE DATE 

3. TYPE *'R CZMLC"’ 

4. TYPE ‘‘START’’ 
THE START COMMAND WILL BE THE ONLY COMMAND 
ACCEPTED BY THIS PROGRAM AND TYPING ANY OTHER 
COMMAND MUST BE AVOIDED. FOR TESTING MULTIPLE 
DRIVES REPEAT STEPS 4 THRU 7 FOR EACH DRIVE. 
ANSWER THE ‘‘CHANGE HW’* QUESTION WITH ‘'Y’’ 
ANSWER ALL THE HARDWARE QUESTIONS 
ANSWER THE ‘'CHANGE SW’* QUESTION WITH ‘N"* 
WHEN YOU ay THIS tye pred YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.35 AND 2.5. 
3.0 ERROR INFORMATION 


3.1 TYPES OF ERROR MESSAGES 


nO OM 
. eo 8 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
PR gy IC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR _* 


E ALWAYS PRINTED UNLESS THE ““IER'’ FLAG IS SET (SECTION 2 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 





NAME 
ERROR MESSAGE 





»WHERE; NAME = DIAGNOSTIC 


NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ER R 





= 0 - N (N_IS LAST UNIT IN PTABLE) 


UNIT NUMBER 
TEST AND SUBTEST WHERE ERROR OCCURRED 


TST NUMBER = 


TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 


SEQ 0008 


EE EN em 


ee 


J 1 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE IER’ OR ““IBR’’ FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLE “IER, “IBR' OR “IXR'' FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


ERROR NUMBER ERROR DESCRIPTION 


ERR_1 ONLY THE DRS> START COMMAND IS RECOGNIZED 
TO START THE PROGRAM EXECUTION. 


ANY OTHER DRS> COMMAND WILL CAUSE THIS ERROR 


ERR_2 DURING THE HARDWARE QUESTIONS THE OPERATOR 
IS ASKED IF A SINGLE BANK, A SINGLE ARRAY 
OR THE ENTIRE ML~-11 SYSTEM IS TO BE PROM 
MAINTENANCED. 


HE/SHE IS THEN ASKED IF HIS/HER INPUTS ARE 
CORRECT. 


THIS ERROR DETECTS A NO ANSWER FOR SELECTING 
SYSTEM, ARRAY OR BANK AND A YES ANSWER TO ‘ARE 
YOUR INPUTED PARAMETERS CORRECT’. 


ERR_3 EVEN THOUGH DRS> WILL BUILD MULTIPLE P-TABLES 
THIS PROGRAM WILL USE AS ITS RUN TIME PARAMETERS 
THE LUN O0°S ENTRIES. 


THIS ERROR DETECTS THE ABSENCE OF THIS FIRST 
P-TABLE "LUN 0° ® 


ERR_4 THIS ERROR DETECTS UNCONFIRMED FAILING CHIPS. 


ie. CHIPS THAT FAILED DURING MASS BUS WRITE 

CHECK TRANSFERS BUT THE FAILURE DID NOT REOCCUR 
DURING DATA DIAGNOSTIC MODES. THIS MAY INDICATE 
THAT THIS FAILURE MAY BE A SOFT ERROR OR POSSIBLE 
HARDWARE ERRORS. 


ERR_5 CONDITION A 
THIS INDICATES THAT ‘ONE* ALL BAD CHIP (GREATER 
THAN LL OWS AND OR COLUMNS) HAS BEEN 
DETECTED IN A CHIP AT A GIVEN BANK. 


THIS CHIP IS NOT PROM MAINTENANCED AND THE ERROR 
CORRECTION IS EXPECTED TO CORRECT THE FAILING DATA 


SEQ 0009 


ERR_6 


ERR_7 


ERR_8 


ERR_9 


ERR_10 


ERR_11 





x, 
CAN REPLACE 
DES. 


FROM THIS CHIP UNT D 


IL Fi 
THE ARRAY FROM WHICH TH 
CONDITION B 


THIS INDICATES THAT A SECOND ALL BAD CHIP HAS 
BEEN DETECTED IN A GIVEN BANK. 


THE BAD CHIP IS NOT PROM MAINTENANCED AND FURTHER 
TESTING OF THIS ARRAY IS ABORTED. 


FIELD. SERVICE SHOULD REPLACE THIS ARRAY BEFORE 


ELD SERVICE 
1S CHIP RESI 


LEAVING THE SITE. 


CONDITION C 


INDICATES THAT BAD NIBBLE OFFSETS HAVE EXCEEDED 
14 OFFSETS RESULTING IN UNSAFE ERRORS. 


THE ARRAYS NIBBLE OFFSETS FOR THIS BANK ARE MASKED 
UP TO 14 OFFSETS. THE ERROR CORRECTION IS EXPECTED 
LR ual THE UNMASKED ERRORS WHICH WERE LEFT 


FIELD SERVICE SHOULD REPLACE THIS ARRAY MODULE 
AT THE EARLIEST POSSIBLE DATA. 


CONDITION. D 
THIS INDICATES THAT PROM BLAST ERRORS WERE DETECTED. 


THIS MEANS THAT THE SELECTED NEW PROM DATA WAS NOT 
WRITTEN INTO THE ARRAYS PROMS CORRECTLY. EITHER THE 
SELECTED PROM LOCATIONS WERE NOT WRITTEN CORRECTLY 

OR OTHER PROM LOCATIONS WERE INADVERTENTLY WRITTEN INTO. 


THIS COULD RESULT IN EITHER BAD LOCATIONS 
ARE NOT BEING MASKED OR GOOD LOCATIONS ARE BEING 


LATER ROUTINES WILL DETERMINE IF THIS SITUATION 
WARRENTS THE ARRAY TO BE REPLACED. 


IF NO OTHER ERROR MESSAGES OCCUR AFTER CONDITION D 
MESSAGES THEN IGNORE THIS ERROR. 


AS MENTIONED BEFORE ONLY THE FIRST P-TABLE BUILT 
WILL BE USED AS THE PROGRAM PARAMETERS. 


THIS ERROR DETECTS THAT MORE THAN ONE P-TABLE 
WAS BUILT DURING THE HARDWARE QUESTIONS. 


DURING WRITING NEW PROM DATA TO THE PROMS THE 
DATA CLOCK BIT LOCATED ON THE ARRAY DATA MODULE 
IS TESTED FOR COMPLETION OF THE PROM WRITE. 


THIS ERROR DETECTS THE FAILURE OF THIS BIT TO 
CLEAR AFTER WRITING TO THE PROMS. 


AFTER THE PROMS HAVE BEEN WRITTEN WITH NEW PROM 


SEQ 0010 


eee 


_—. oe 


i 3 
DATA THE PROGRAM VERIFIES THAT ALL NEWLY FAILING 
ROWS AND COLUMNS HAVE BEEN SUCCESSFULLY MASKED OUT. 


THIS ERROR DETECTS THE OCCURANCE OF UNCORRECTABLE 
ERROR DURING THIS VERIFY PASS. 


THIS ERROR CAN NOT BE TOLERATED AND THE ARRAY IS 
CALLED OUT FOR REPLACEMENT. 


FIELD SERVICE MUST REPLACE THIS ARRAY MODULE 
BEFORE LEAVING THE SITE. 


IF THIS ERROR STILL EXITS AFTER THE ARRAY IS 
REPLACED THEN POSSIBLE HARDWARE ERRORS MAY 

EXITS IN THE DRIVE. THE LOGIC TEST AND EXERCISER 
SHOULD BE RUN AGAIN. 


ERR_12 AGAIN DURING THE VERIFY PASS THE DRIVE IS EXAMINED 
FOR ERRORS AFTER BLASTING. 


SINGLE BIT ERRORS ARE TOLERATED IN BANKS WHICH 

ARE “ra GRADE MODE (EITHER ONE ALL BAD CHIP 
WAS LEFT BEHIND OR NIBBLE OFFSETS GREATER THAN 
WERE DETECTED). HOWEVER NON = DEGRADE MODE BANKS 
SHOULD BE RUNNING ERROR FREE AFTER BLASTING. 


THIS ERROR DETECTS THE OCCURANCE OF ERRORS 
IN THE BANKS WHICH ARE NOT IN DEGRADE MODE. 


THIS COULD INDICATE THAT THE PROGRAM FAILED TO 
TO FIND AND MASK OUT ADDITIONAL ERRORS IN THE BANK 
OR THAT POSSIBLE HARDWARE ERRORS EXIST. 


THE PROGRAM SHOULD BE RUN ON THIS BANK AGAIN. 
IF THE ERROR STILL EXISTS THEN ISOLATE WHERE 
THE PROBLEM LIES. IF THIS PROGRAM IS SUSPECTED 
THEN CONTACT MEMORY DIAGNOSTIC ENGINEERING. 


ERR_13 THIS ERROR DETECTS THE PRESENTS OF UNEXPECTED 
DRIVE ERRORS DURING OR AFTER A MASS BUS TRANS-~ 
FER. AFTER THE A MESSAGE IS PRINTED STATING THE ERROR 
ALL THE DIRECTLY READ ML-11 REGISTERS ARE DUMPED 
TO THE TERMINAL FOR OPERATOR REVIEW. 





4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 


THIS PROGRAM WILL BE ae ONE TIME PER ‘START’ COMMAND ISSUED. 
THE DRS» REPORT OF HOW MANY OF ERRORS DETECTED HAS NO MEANING DURING 
EXECUTION OF THIS PROGRAM. 


ONC® THE PROGRAM EXECUTION HAS COMPLETED THIS JUST PM'ED UNIT IS 
10 Beep TO SUPPRESS FURTHER PROGRAM EXECUTION AND CONTROL IS PASSED 


DROPPING OF A UNIT RESULTS IN A DRS> MESSAGE OF ‘PASS ABORTED FOR 


SEQ 0011 


re are ar eS 


mM 1 
THIS UNIT’. THIS MESSAGE HAS NO SIGNIFICANCE ON THE PROGRAMS 
EXECUTION AND SHOULD BE IGNORED. SEQ 0012 


A REPORT OF THE PROGRAMS PERFORMANCE CAN BE OBTAINED VIA THE DRS> 
COMMAND ‘PRINT’. 


5.0 DEVICE INFORMATION TABLES 
HARDWARE P-TABLE ENTRY DEF INTITION 
TABLE LOCATION DESCRIPTION 


1. A,HWTBL : INITIAL(O) STORES A TRUE OR FALSE VALUE AND 
HAS NO DEFAULT VALUE. 


SELECTS WHETHER THE ENTIRE ML-11 SYSTEM 
(ALL PRESENT ARRAYS) ARE TO BE PM'ED. 


B_HWTBL : INITIAL(0) STORES A TRUE OR FALSE VALUE AND 
HAS NO DEFAULT VALUE. 


SELECTS WHETHER A SINGLE ARRAY MODULE 
IS TO BE PM'ED. 


3. C_HWTBL : INITIAL(O) STORES A TRUE OR FALSE VALUE AND 
HAS NO DEFAULT VALUE. 


SELECTS WHETHER A SINGLE BANK IS TO 
BE PM°ED. 


™Nm 
« 


4. D_HWTBL : INITIAL(O) STORES THE SELECTED BANK NUMBER TO 
BE PM°ED IF PM*ING SINGLE BANKS. 


THERE IS NO DEFAULT VALUE. 


5. E.HWTBL : INITIAL(0) STORES THE SELECTED ARRAY MODULE TO 
BE PM'ED IF PM'ING SINGLE ARRAYS. 


THERE IS NO DEFAULT VALUE. 
6. F_HWIBL : INITIAL(176400) STORES THE RH CONTROLLER BASE REGISTER 


THE DEFAULT ADDRESS IS %0°176400°. 


7. G_HWTBL : INITIAL(0) STORES THE DRIVE SELECTION NUMBER 
OF THE SELECTED DRIVE TO BE PM'ED. 


THERE IS NO DEFAULT VALUE. 


8. H_HWTBL : INITIAL(O) STORES THE DRIVE OPTION CODE FOR THE 
SELECTED DRIVE. 
YES = 16K MOS RAMS 
| NO = 64K MOS RAMS 
9. IHWTBL : INITIAL (TRUE) STORES A TRUE OF FALSE VALUE. 


THIS FORCES THE OPERATOR TO REVIEW 
HIS/HER PARAMETER INPUTS FOR CORRECTNESS 


a 


N 1 
BEFORE PERFORMING PROM MAINTENANCE. 
THE DEFAULT VALUE IS TRUE. 


6.0 PROM MAINTENANCE TABLE REPRESENTATIONS 


ERROR MAP 


THE ERROR MAP IS A BLOCK VECTOR OF Sid oe 
THESE BLOCKS REPRESENT THE SECTORS IN A CH 
EACH BLOCK HAS 8 WORDS. THESE BIT POSITIONS” IN 
THE WORDS REPRESENT ROW ADDRESSES 0 TO 127. 


THE ADJACENT COLUMN ADDRESS FOR EACH ROW ADDRESS 
CAN Se CALCULATED BY ADDING THE ROW ADDRESS TO THE 
ROWS SECTOR NUMBER. 


ERROR_MAP 
eee 
I ROWS 0-127 I 
I I SECTOR 0 
I . 
I I 
ce ena 
[ ROWS 0-127 | SECTOR 1 
I I 
| ----------------------- I 
je----------------------] 
| ! 
1 ROWS 0-127 | SECTOR 511 OR 127 
I i 
os 


MAIN BLAST TABLE 


THE BLAST TABLE IS A BLOCK VECTOR OF FOUR BLOCKS. 

EACH BLOCK REPRESENTS PROM BANKS 0 T 

EACH BLOCK HAS 512 WORDS. EACH BLOCK IS FURTHER 
The tA " SECTIONS. THE UPPER SECTION — 
ROW PROM 0 12 ORO 10,256 IF ote" a a 

AND THE LOW ER SECTION OLUMN PROM DATA 0 TO 127 

(OR 0 TO 256 IF 64K CHIPS). 


MAIN BLAST TABLE 


[eee ennnnennnennnnne ===] 











SEQ 0013 
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SS 


: ; B 2 
; ROWS ADRS ; 

weeee= 3 3} s“Seceee ; BANK 0 
I COLS ADRS I 

I I 

I ww ww ow ow eowoeooewoees=- ] 

I J 

ROWS ADRS ' 
‘memes SS Fe ee ot ae SD ; BANK 1 
I COLS ADRS I 

I I 

I te 

I I 

: ROWS ADRS I 

: oe ee oe eiiaemtils BANK 2 
I COLS ADRS I 

I I 

I women er ne — eee eee non ee ==] 

I I 

: ROWS ADRS ; 

I COLS ADRS I 

I I 
]------- =] 





THE BLAST TABLE IS LOADED WITH THE NEW PROM DATA TO MASK 
OUT THE NEWLY FAILING ROWS AND COLUMNS AND IS ALSO LOADED WITH 
THE OLD PROM DATA FROM PREVIOUS PROM BLASTING. 


TEMP BLAST TABLE 





THE TEMP BLAST TABLE IS A BLOCK OF 10 WORDS. IN EACH WORD 
IS STORED A BAD ROW OR COLUMNS RESPECTIVE NIBBLE NUMBER 
ITS ROW OR COLUMN NUMBER AND A FLAG TO TELL 1§ 
TABLE EWi=Y IS A ROW ADRS OR A . 











THIS TABLE IS NEvcSSARY BECAUSE 
ay IS STORED tt THE MAIN BLAST TABL 
WH NIBBLE THE ROW OR 






BE ALL BAD ( > 710 ALL BAD ROW 

THIS CHIPS NEWLY FAILING ROWS AND COLUMNS ARE NOT BLASTED. 

TO ACCOMPLISH THIS THE TEMPORARY BLAST TABLE Y NOT 

TRANSFERED INTO THE MAIN BLAST TABLE. 
TEMP BLAST TABLE 


BITS , 15 12 TO 4 3 10 0 


A Re 





SEQ 0014 


b< 


io a cee Remeiieeel Reniieblind 

I cee SUS BSW STE eZee see amis ase we woewcenne | 

I I I I I 

I i I I I ENTRY 1 

I I I I I 

I woo-e-] owen] fee Gp Ow Se Re ee ty oe eneeea ne awaee o-] 

I I I I I 

I I I I ENTRY XX 
I I I i 

I oonn-] ween | woewewoe weno weeowoeseces=] 


TABLES USED IN CALCULATING SELECTED ROWS AND COLUMNS 
FOR BLASTING. 


COLUMN COUNT 


TABLE 
THIS TABLE KEEPS A COUNT OF THE NUMBER OF TIMES THE 
COLUMNS FAILS WITH A PARTICULAR FAILING ROW. 


ROW COUNT 


THIS woe VARIABLE COUNTS HOW MANY TIMES A ROW 

NUMBER IS FOUND BAD WHEN SEARCHING THE ERROR MAP. 

EACH TIME A ROW IS FOUND BAD THE COUNT IS oe fee 

IF THIS COUNT GETS > 10 THEN THIS ROW IS CALLED ALL 

BAD AND IS SELECTED FOR BLAS N THIS HAPPENS 
THE COUNTS OF THE ADJACENT FAILING COLUMN IS DECREMENTED 
BY ONE AND THIS ROW NUMBER IN THE ERROR MAP IS CLEARED OF 
ALL OCCURANCES. 





IF THE ROW COUNT DOES NOT REACH > 10 AFTER SEARCHING THRU 
THE ERROR MAP THEN THIS ROW IS NOT SELECTED FOR BLASTING 
AT THIS TIME AND THE ADJACENT FAILING COLUMN COUNTS ARE 
NOT DECREMENTED. 


COLUMN POINTER TABLE 


aoe ¢ TABLE 


AS MENTIONED BEFORE THIS TABLE POINTS TC THE ADJACENT 
FAILING COLUMN NUMBERS WHICH FAILED WITH THE ROW SEARCH. 






PROGRAM EXECUTION WILL FIRST SEARCH THE ERROR MAP F 
WITH GREATER THAN 10 COUNTS AND THE ADJACENT FAILING COLUMNS 
COUNTS ARE INCREMENTED. NOW ONCE = ERROR MAP HAS BEEN SEARCH FOR 

OWS ‘ex S > 10 Mee N COLUMN COUNT TABLE IS SEARCHED FOR COLUMN 
COUNTS > 10. IF A COLUMN COUNT IS > 10 THEN THIS COLUMN 
IS SELECTED FOR BLASTING AND ITS COUNT IS CLEARED. 


ALL THAT IS LEFT NOW ARE RANDOM FAILING ROWS AND COLUMNS 
SCATTERED THROUGH THE CHIP. THESE A ye og ROW COLUMN 
PAIRS ARE TRANSFERED INTO THE REMAINDER TABLE RE THEY 
oe TE INTERIGATED AND SELECTED FOR THE BEST POSSIBLE BLASTING 





COLUMN COUNT 
TABLE 


[-------] 





SEQ 0015 


| , 
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es H 
Pane pend ted bent Pee Dt bed teat Bent nk Pere mt Pt De Fed bad Rend Pant bt Pd Be 


: ‘ 
; i 
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] é 
bog tees bene 


Pmt Peed Bey Dene Demme meg Grmmeg Beret fat freed Pemant eed mt Prt Bent fmt mn Deen Dem Peng Dene fend Ormnd pment Qe Pe 


i 
4 
‘ 
’ 
a 
wae 


SS ee 


D 2 
coL 0 REMAINDER TABLE 
coL 1 


I Se eS & Ow SS SE SS a OP oS 


J-- 
I ROW ADRS : COL ADRS I! 


]---- 








coL 3 I : I 
CCL 4 I : I 
cOL 5 
COL 6 
cOL 7 
coL 8 
COL 9 


I COL 10 
I COL 11 


COL XX 


ROW COUNT 


[-------------1 


I 
I 


J------ 





COLUMN COUNT POINTER TABLE 


feminmeien I 
I POINTER 0 
Tf POINTER 1 
en 1 POINTER 2 
i SST:«SPOENTER 3 
LT POINTER XX 


SEQ 0016 


BAD CHIP TABLE 
T CHIP TABLE STORES AWAY FAILING CHIPS 
DISCOVERED BAD IN A DURING WRITE CHECK TRANSFERS 
DURING SINGLE STEP DMA MODES. THE FAILING DATA PATTERN 
FOR EACH CHIP IS ALSO STORED. 


THIS TABLE IS A BLOCK OF 39 WORDS AND THE BIT DEFINITIONS ARE 
AS FOLLOWS: 


a ee 


re a a een a ee eee ee eee 
ES ate 


—s 


)% 
ELUDOM 








ILURE 
FAILURE 
FAILURE 
CATES RANDOM DATA 10 FAILURE 
CATES RANDOM DATA 11 FAILURE 
CATES RANDOM DATA 12 FAILURE 
RANDOM DATA 13 FAILURE 
BAD CHIP TABLE 
I I 
I CHIP 0 
[-------] 
I CHIP 1 
[-------] 
I I CHIP 2 
]-------] 
i I CHIP 3 
[oererene] 
I I CHIP 4 
[ooo----] 
{ I CHIP 5 
]-------] 
: ; CHIP XX 
i I CHIP 38 
[o+ee---] 


7.0 TEST SUMMARIES 


THIS PROM MAINTENANCE PROGRAM CONTAINS ONLY ONE TEST. 
TEST IS THE MAIN CONTROL LOOP WHICH LOOPS THE 
ON THE SELECTED ARRAYS AND BANKS FOR PROM MAINTENANCE. 


THIS ONE 
EXECUTION 





8.0 MAINTENANCE HISTORY 
MODIFIED BY: D.W. NEALE DATE: 18=FEB-82 VERSION: B 


MODIFICATIONS TO THIS DIAGNOSTIC ARE PRECEEDED WITH A LINE COMMENT 
OF *! VERSION CZMLCB’. 


SEQ 0017 
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BSKEL2 1 “Farm OEs 16:97: 3 TOPS-20 Bliss-16 V2(212) Page 1 
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7 
<= 
@ 
> 
~—{ 
oO 
=z 
8 


MODULE BSKEL2 ( IDENT = ‘REV 8 PATCH 00°) = 


BEG 
REQUIRE *BLSMAC.REQ': 
ZSBTTL ‘PROGRAM HEADER’ 






S338 
WWN— 


LITERAL 
DSSNBR_OF_TESTS = 1; 


SSELSSES 


z( 


-++ 


Z8 


3 THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


ix 

EQUALS; 

POINTER (ALL); 

HEADER (ZASCII'CZMLCA',2ZASCII‘B’, ZASCII'0".120,0,PRI00); 


MOOooarns 
Ww 
SSsesss 


ZSBTTL ‘DISPATCH TABLE‘ 
z( 


st 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


}z 
DISPATCH (DSSNBR_OF_TESTS): 


MFOAOoMe 
OE ay te etet 
WONAOULSWN—O 


MNIMIVAMAMI MIAMI Aa aii 
MOMNIPONN 
QOutlwn— 


ERRTBL; 


wtaales 
SOON 


Wr 


ZSBTTL ‘DEFAULT HARDWARE P-TABLE* 
z( 
ot 


VIVA 
Ww 


Se 


: THE DEFAUL OF 
: THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 


OOOO 
ee ee ee ek ed ed ed ad aed od eh aed ed 


res 
= 





eee ees - -- - - 


- rem et ee i wee eee ee ee eee 


ee ee ——— - of 


re 





rr re eee ee eee 
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REV B PATCH 00 DEFAULT HARDWARE P-TABLE ets 16:07 33 PA: <NEALE>PMSKL2.BL1.1 (1) SEO°0019 
: € 1542 ;-- . 
: 136 5x 
; 1544 
: 1545 BGNHW (DFPTBL); 
; 1546 
3 1547 GLOBAL 
; 1548 A_HWTBL : INITIAL (0), ‘MASK ENTIRE SYSTEM FLAG INDICATOR 
: 1549 B_HWIBL : INITIAL (o} - ‘MASK A SINGLE ARRAY FLAG INDICATOR 
3 1550 C_HWIBL : INITIAL ( ), 'MASK A SINGLE BANK FLAG INDICATORG 
: 1551 D_HWTBL : INITIAL (0), 'BANK NO. TO BE MASKED 
s 1326 HWTBL : INITIAL (0) , 'ARRAY NO. TO BE MASKED 
5 155 F_HWTBL : INITIAL (%0°176400'), 'RH REGISTER BASE ADRS 
: 1554 G_HWTBL : INITIAL (0), ‘DRIVE SELECT NO. OF DRIVE TO MASKED 
; 1555 HWTBL : INITIAL (1), ‘OPTION, 1 = 16K MOS RAMS, 0 = 64K MOS RAM 
: 1556 ITHWTBL: INITIAL (1); iPARAMETERS CORRECT INDICATOR 
; 1557 ENDHW; 
; 1338 ZSBITL “SOFTWARE P-TABLE‘ 
3 C 1560 Z¢ 
5 C 1561 ;++ 
: C 1562 : THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
s C 1563 ;: RATIONAL PARAME . THESE PARAMETERS ARE 
; : 1208 : SET UP A ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 
3 C 1566 ;: AT RUN TIME. HOWEVER THIS PROGRAM WILL NOT USE THIS OPTIONAL 
3 C 1567 ; SECTION. 
$ C 1568 ;:-- 
: 1569 )% 
ni 
5 1572 ! THERE ARE NO SOFTWARE QUESTIONS USED 
; 1573 ! DURING THIS R THIS 
$ 1574 ! SOFTWARE TABLE LOCATION IS PROVIDED 
E 1575 '! IN THE EVENT OF A ‘YES’ RESPONCE T 
: 1376 THE DRS> SOFTWARE QUESTION ‘Change Software’ 
$ 1578 ®8GNSW (SFPTBL); 
: 1579 
; 1580 OBAL 
: 138) SWIBLS$_RET : INITIAL (0); ‘DUMMY ARGUMENT 
; 1583 ENDSW: 
: 1584 
; 1585 
: 1 ae 
: 138 ZSBTTL ‘PROTECTION TABLE’ 
3 C 1589 2Z¢ 
5 € 1590 ;++ 
; C 1591 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 
bs : 133 : TO PROTECT THE LOAD MEDIA. 
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ee ee Se, SY 
Ss Wu 
SOS SSS SS SESS 


2 
BGNPROT (-1,-1,-1); 


OF 


LSEXP4:: 


FSET INTO P-TABLE FOR CSR 
OFFSET INTO P-TABLE FOR MAS 
OFFSET INTO P-TABLE FOR DRIV 


ss « 

bet 
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Brace bong 
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or a SOooww ooo 
3S 
= 


“co 


SE ES LL SS Ss sens SS s-seb 
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REV B PATCH 00 PROTECTION TABLE 


se 


S882 SSeeeseeess 
ESR RVSSARNVOKENVSAANS 


000136 
000140 





000000C 
000000 


177777 
177777 
177777 





LSEXPS::. WORD 
LSAUT:: . 


SPCNT:: 
LSDISPAT 


LSNDHW: : .BLKW 
LSSWLEN:: 
- WORD 
SWIBLS.RET:: 
«WORD 
LSNDSW:: .BLKW 
LSPROT::.WORD 


I 2 
ener 1985 16:06:70 
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.GLOBL LSSOFT, TSPTHY LSRPT, LSINIT 
"GLOBL LS$CLEAN, LSLA AST, L$ SHARD L$DVTYP 
"GLOBL L$DESC, L$DU, slg AUTO, T1 

100000 BIT15== -100000 
040000 BIT14== 4000 
020000 BIT13== 20000 
010000 BIT12== 1 00 
004000 BIT11== 4 : 
002000 BIT10== 2000 
001000 B1T09== 1900 
000400 BIT == 4 
000200 BIT07== 200 
000100 B1TO6== 00 
000040 BIT05== 40 
000020 BIT04== 2 
000010 BIT03== 10 
000004 BIT02== 4 
000002 BITO1== 2 
000001 T00== 1 
001000 BIT9== 1000 
000400 BIT8== 400 

BIT7== 2 
000100 BIT6== 100 

0 GIT5== 4 
BIT4== 2 
BIT3== 1 
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mn a ie a ee re ee -ceee 
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- re Se ee 


BSKEL2 
REV B PATCH 00 PROTECTION TABLE 


Memory Used: 


0 code + 64 data words 


00:03.4 
: 00:10.0 


29 pages 
omplete 


L 
DFPTBL== 
SFPTBL== 


EL tn 
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ERRTYP 
LSSWLEN+ 
LSHWLEN+ 
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0001 MODULE BSKEL3 (IDENT = ‘REV B PATCH 00") = 








3 000 IN 

: 0003 REQUIRE ‘BLSMAC.REQ'; 

: 1493 EQUALS; 

; 1494 EXTERNAL ROUTINE 

: 1495 SUMMARY : NOVALUE: 'SUMMARY REPORT CODE ROUTINE 

; 1497 %SPTTL "TYPE AND DESCRIPTION’ 

: 1498 

; 1499 

: 1301 

: 130¢ DEVTYP (%ASCIZ"ML-11 BLOCK MODE MEMORY SYSTEM’); 

: 1504 

: 1308 DESCRIPT (%ASCIZ"ML-11 PROM MAINTENANCE PROGRAM’); 

; 1308 ZSBTTL "HARDWARE P TER CODING SECTION’ 

$ C 15171 Z¢ 

$ C 1512 ;++ 

: € 1513 =: THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

: € 1514 =: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. 

: € 1515 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

: € 1516 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. T 

: € 1517 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

: € 1518 =: WITH THE OPERATOR. 

: C 1519 ;:-=- 

; 1520 )% 

; 1521 

3 1522 BGNHRD; 

; 1523 BIND 

3 1524 ! 

: 1369 | DEFINE HARDWARE MESSAGES 

: 1527 M_SYS = UPLIT(ZASCIZ'IS ENTIRE ML~11 SYSTEM TO BE MASKED ?°), 
: 1528 MARR = UPLIT(ZASCIZ'°IS A SINGLE ARRAY TO BE MASKED 2"), 
: 1529 M-BNK = UPLIT (ZASCIZ 018 E BE MASKED 2°), 
: 1530 M_BNK_NO = UPLIT(ZASCIZ' BANK NO. TO BE MASKED 2°), 
: 1531 M_BRD-NO = UPLIT(ZASCIZ° BOARD NO. TO BE MASKED 2") 
: 1532 M_RH_BASE = UPLIT(ZASCIZ BASE REGISTER ADDRESS ?°5, 
: 1533 M_DUT = UPLIT(ZASCIZ'DUT : 2°), 
: 1534 M-OPTION = UPLIT(ZASCIZ' IVE OPTION AN Mi11A 2"), 
: 133 mM_TORRECT = UPLIT(ZASCIZ° OUR INPUTED PARAMETERS CORRECT ?'); 
: 1537 i SELECT WHICH OPTION THE PROGRAM IS 

: 1538 ' TO RUN UNDER. 

: 1539 OPTION 1. PROM MAINT ENTIRE ML11 SYSTEM 

: 1540 OPTION ¢- PROM MAINT A SINGLE ARRAY 

: 1541 OPTION 3. PROM MAINT A SINGLE BANK 


ane 


mT TT A SL TT RT TT 


ee ee 
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BSKEL3 
REV B PATCH 00 HARDWARE PARAMETER CODING SECTION 


154 

1343 i ASK AM 1 TO MASK AN ENTIRE SYSTEM ? 
1545 GPRM ( (M_SYS,%0'0',1,NO,1); 

1346 KFERT (DRV_ PRAM); 


3 ASK AM I TO MASK AN ENTIRE ARRAY ? 


GPRML(M ARR,%0'2',1,NO,1); 
KFERT CERTER_ "BOARDS; ~ 


i ASK AM I TO MASK A SINGLE BANK ? 
GPRML (M_ BNK,%0"4',1,NO,1); 


3 INPUT TO THE PROGRAM Li 3 SELECTED 
PROGRAM RUN TIME PARAMETERS. 


EFERF (DONE _HRD); 
: ENTIRE BANK TO BE PROM MAINT 


GPRMD (M BNK_NO,%0°6'.D,%0°7°,0,2DECIMAL'3° ,NO,1); 
SL CENTER BOARD); 


VES Ses 
WNr—Owoc 


MIMI UIA UW A MAA ain 
SS cs Sa ae 
wi -“OVDOonour 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1566 
67 3 ENTIRE BOARD TO BE PROM MAINT 
1569 GPRMD(M BRD_NO,%0°10°.D,%0°77°,0, 2DECIMAL'15°,NO,1); 
oy $LCDRV_ PRAM): 
1572 3 ENTIRE RH BASE ADDRESS 
1573 i ENTIRE DRIVE UNDER TEST 
0h ENTIRE DRIVE OPTION 16K PARTS OR 64K PARTS 
1576 GPRMAC. RH_BASE ,40'12",0,0,20°177777" YES. 1); 
1577 GPRMD (M_DUT .20°14' .0, 26'7". x0°77" »NO,1) 
1378 GPRAL GPRML (MTOPTION, 20" ig ne bf 
1580 i FORCE THE OPERATOR TO REVIEW HIS INPUTED 
1581 i PARAMETERS FOR CORRECTNESS BY ASKING THE 
1582 i NEXT QUESTION. THE INIT CODE WILL ABORT 
1583 i THE PROGRAM EXECUTION IF HE RETURNS A NO 
1584 i RESPONCE 
1585 i 
1586 $L (DONE_HRD): 
1587 GPRAL (M_CORRECT,%0"20°,1,YES,1); 
1388 ENDHRD; 
1590 ZSBITL "SOFTWARE PARAMETER CODING SECTION’ 
c 1592 x 
C 1593 ;++ 


~~ ~—.e—— Ne a ee eee 
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THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

* WITH THE OPERATOR. HOWEVER THIS PROGRAM WILL NOT USE THIS SECTION. 
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BGNSFT; 
BIND 
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DEFINE THE SOFTWARE MESSAGES 


SeceaR 


) | 
M_RET = UPLIT(ZASCIZ' NOT USED TYPE <CR>'); 
INPUT THE SOFTW°RE QUESTION TO THE PROGRAM 
GPRML (M_RET,0,1.YES,1); 


AAAS 
St od 


ENDSFT; 
ZSBTTL "REPORT CODING SECTION' 


Nm 


WUINIRIPININIAINIDIND 2 2 2 =. 


+ 

i THE REPORT CODING SECTION CONTAINS THE 

| “PRINTS'’ CALLS THAT GENERATE STATISTICAL REPORTS. 
x | 

BGNRPT; 

' THE SUMMARY REPORT CODE ROUTINE FOR THIS 


! PROGRAM IS LOCATED IN PMSKL4 OF THIS 
! DIAGNOSTIC. 


SUMMARY (); 'CALL THE REPORT SUMMARY ROUTINE 
RETURN; 


ENDRPT ; 
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00 REPORT CODING SECTION 


REV 8 PATCH 





A 
~~ 
L aed 
Vv A ~ 
Ban e~ 28 : 3 g 
we 
~A ASSO SSS HEH SN VSS SS SESS ~~Ss>5~25> ~™ a ™ SOM AS WSS 
wetaew Vre-au vv &A 2 aa wa ce&- wou vo za, fv 
ae > HR =v ~ wate 32#<2 ~ 4 S zo ~~ rey aera 
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meg ag eg Og eg eg Omg Seg Oy mg Og eg Og Og ag Sy eg Soe SG Dey Oy Og Seg Og Seg Dang Ong Sony Sony Seg Sang Soy Some Soy Saag Deed Seng Ooeeg oy ay Song Snel Beng nay ag ng 
emg Og Oey Smeg ng Og Og OG Og Omg Smeg Oey Seg Sey Ong Oo mG Gay omy Seng Oey Sang Seg Sang Sony Sg Smeg Song Seg Smeg Seg Song Hoag Sey Say Sang Somey Seng Soy Heng Sony ey Hag eng ng Ong 
Peer ay ere ere ere rey ere rere eee el ll ll dh 44-4. >, +, 6-4, >,>,47-$547>roror4 


guuuesesuuueseeeuueeeeeeeeeeeeeeeeeeeeeeeeee es 
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a Qa 


WE OMO WINN © or Ovroore OOo Mr OOnNM MMO WN om 


TOowrmo 
LGSNESNSRLSEGSBANSR- SPSS ISNANENGNSNSNA EE GERES 


NNSSSRS SH SENSIS SNH KH SI OE PRON NSO SSNS N SUNS VRS 
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100000 
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ee 1. 


I NF INV SNH MVHS 
SSSgssg OS°SSSEEssss 


ne 
NO 


SeSETER To seoestetesteseeseees 





000340 0 
000300 
000240 4 
000200 
000140 4 
000100 1 
000040 4 
000004 ¢ 
000010 LOT== 1 
006020 a5 
000040 = 4 
000100 ISR== 1 
900400 BOE== c 
s= | 
001000 PNT== 1 
2000 PRI== 
004 IXE== 4 
LV. IBE== 1 
000 Lop== ; 
106, HOE == - 
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“Mar-1982 1 PA: <NEALE>PMSKL5.PL1.1 (1) SEQ 0032 


LSWnOLNS? 





j 
LSSFTLN#2 | 
P.AAJ | 


~SBTTL LAPT REPORT CODING SECTION 
SCODES 


000236 -PSECT 
000236 004767 000000G LRPT: JSR PC, SUMMARY ; 1635 
000242 000207 RTS PC 3 1616 

: Routine Size: 3 words 

: Maximum stack depth per invocation: 0 words 

.SBTTL LSRPT REPORT CODING SECTION 

000244 004767 177766 LSRPT:: JSR * Ca : 1636 
000250 104425 TRAP 2 
000252 000207 RTS 


; Routine Size: 4 words | : 
+ Maximum stack depth per invocation: 0 words 


ZSBTTL ‘AUTODROP SECTION’ 

aC 

"THIS _ LODE IS gt ECUTED i BOLE oS THE 
' THE ‘ADR’ FLAG WAS ser. he * - UNDER 
i SEE IF THEY WILL RE 

i DROPPED FROM TESTING. 


INITIALIZE CODE IF 
TEST ARE CHECK are TO 
DON'T ARE IMMEDIATELY 






POOOAOoAIe 
ce a meh ae a ed ad med meh ed eed ed me et 
SESSEEEES 
UESWN OO 


iz 
' THIS SECTION ‘AUTO DROP’ IS NOT USED 
DURING THIS PROGRAM 


Ce se es ee te rer ee were 


Cnoncncn 
Wooo 


BGNAUTO: | 
RETURN; | 


rs 


AAAAXO 


wi 
Ww 


ee ee ee 


Te eS Oe — 
— — _ ——e- 
- - — - _ 


eee eee. eee 
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REV B PATCH 00 AUTODROP SECTION 1 r-1982 15:44:2 PA: <NEALE>PMSKL3.BL1.1 (1) SEQ 0033 
3 1656 ENDAUTO; 
sSOrrl LAUTO AUTODROP SECTION 
000254 000207 LAUTO: ARTS PC : 1638 
: Routine Size: 1 word 
: Maximum stack depth per invocation: 0 words 
| 
.SBTTL LSAUTO AUTODROP SECTION 
000256 767 177772 LSAUTO: :JSR Hc LAUTO ; 1655 | 
000262 104461 TRAP 6 
000207 RTS 
: Routine Size: 4 words : 
>: Maximum stack depth per invocation: 0 words | 
; 1657 
: 1658 
3 io ZSBTTL ‘DROP UNIT SECTION’ 
& igeo ts 
: & 1663 i THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE | 
; C 1664 ' TO NO LONGER BE TESTED. 
: € 1665 i- | 
; 1666 )% | 
° 1667 '! THIS SECTION ‘DROP UNIT’ IS NOT USED 
: 1668 ' DURING THIS PROGRAM | 
: 1669 ! 
: 1670 BGNDU; 
é 1671 RETURN; 
: 1672 ENDDU; : 
-SBTTL LDU DROP UNIT SECTION | 
000266 000207 LDU: RTS PC : aad 
; Routine Size: 1 word ; 
: Maximum stack depth per invocation: 0 words | 
| 
SBTTL LS$DU DROP UNIT SECTION | 
000270 004767 177772 L$DU:: JSR PC,LDU ; 1671 
000274 104453 TRAP 53 | 


000276 000207 RTS PC | 





———————————— eee 
I 3 

BSKEL3 18-Mar-19 07:45 

REV 6 PATCH 00 DROP UNIT SECTION emer 1983 18:90:33 


: Routine Size: 4 words 
: Maximum stack depth per invocation: 0 words 


F- 1673 
3 1674 
: 1675 %SBTTL ‘ADD UNIT SECTION’ 
5 1678 
C ier ts 
; C 1679 | THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
; € 1680 !' TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
3 C 1681 ! TO THE TEST CYCLE. 
; C Io - 
: 1 )% ; 
: 1684 ! THIS SECTION ‘ADD UNIT’ IS NOT USED 
3 1685 ! DURING THIS PROGRAM 
5 1686 ! 
: 1687 S8SGNAU; 
: 1688 RETURN: 
; 1689 ENDAU; 
-SBTTL LAU ADD UNIT SECTION 
000300 000207 LAU: RTS PC 


; Routine Size: 1 word | 
: Maximum stack depth per invocation: 0 words 


hie LSAU ADD UNIT SECTION 


000302 004767 177772 LSAU:: oe 
000306 104452 TRAP 5 
000310 000207 RTS PC 


z Routine Size: 4 words | ; 
: Maximum stack depth per invocation: 0 words 


See tetee 
oh 
Oo 
© 
NS 


END 
1694 ELUDOM 


eee —— 
- - ——~ — ~ 


TOPS=20 Bliss-16 V2(212) 


PA:< 


ALE>PMSKL5.BL1.1 (1) 


Pa 17 
SEO 0034 


eee — 


BSKEL3 
REV B PATCH 00 ADD UNIT SECTION 


: Size: code + 251 data words 
: Run Time: :04. 
: mong me 708. 


s 
: Sesstlorlan cme 


18-har= 
18-Mar- 


1989 


1 
1 


TOPS- 
PA:< 





0 Bliss-1 
ALE>PMSKL 


oe eee ee ee 


veer) 


-BLI.1 


(1) 


Page 12 
SEQ 0035 


me ee 


eee - - 


_— —— - ee ee ee ee Ee etree 


re a ee ee eer. ee 
- — --- ~ —_ 


Kk 3 
BSKEL4 Mar n1385 19:97:24 P 1 
18-Mar-1982 15:44:41 PA: <NEALE>PMSKL4.BLI.1 (1) SEQ 0036 











TOPS=20 Bliss-16 V2(212) age 
: 9001 MODULE BSKEL4 CIDENT = "REV B PATCH 00° 
: $508 BEGIN 
: 0004 ! 
: 0005 i PRETTY BLF COMMANDS 
: 0006 ! 
0007 !<BLF/LOWERCASE_KEY> 
: 6099 i LIBRARY FILES 
: 0010 ! 
: 00171 ! 
: 0012 i REQUIRE FILES 
: 001 ! 
5 0014 
: 0015 require ‘BLSMAC.REQ'; 
c 1308 xt 
: € 1507 DUE TO THE BLISS-16 COMPILER BLISS16 COMPILERS RESTRICTION OF 6 CHARACTERS PER UNIQUE VARIABLE NAME 
; ¢ 1308 THE FOLLOWING ROUTINE SUBSCRIPTS ARE USED: 
: c 1310 ROUTINE SUBSCPIPTS 
: C 1512 i ROUTINE NAME = INITIALIZE 
: C 1513 IN ROUTINE NAME = INTERIGATE 
: C 1514 L ROUTINE NAME = LOAD | 
: € 1515 ROUTINE NAME = DIAGNOSTIC MODE 
: C 1516 TINE NAME = GENERATE 
: € 1517 NE NAME 
; Cc 1518 CLR_ROUTINE NAME 
: ¢ 1519 OFF ROUTINE NAME 
: € 1520 ROUTINE NAME 
: € 1521 CS ROUTINE NAME 
- C 1522 NE NAME 
3 C 1523 CAL_ROUTINE NAME 
: C 1524 BL ROUTINE NAME = BLAS 
: € 1525 VER ROUTINE NAME = VERIFY 
: C 1526 S ROUTINE NAME = SEARCH 
: } 1327 XTROUTINE NAME = TRANSFER 
: c 1329 ! MISCELLANEOUS SUBSCRIPTS 
: € 1531 F_MISCELANEOUS NAME = FLAG 
; 1532 )% 


eS ee — " 


ewe rm ee ee ee 
eee - -- —— 


L 3 
9 























BSKEL4 18-Mar-1 16:07:57 TOPS-20 Bliss-16 V2(212) P 2 
REV B PATCH 00 CONSTANT LITERAL DECLARATIONS a it 13:24:21 PA: <NEALE>PMSKL4.BLI.1 (2) SEO "0037 
13 3 %sbttl "CONSTANT LITERAL DECLARATIONS’ 

13 5 CONSTANT LITERAL DECLARATIONS 

: 1537 

; 1338 Literal 

: 1539 ! 

: LF 3 Mass bus transfer codes 

; 13%6 func_1 = %0'000001', 'Noop function 

: 154 FUNC_2 = %0°000011°, ‘Drive clear function 

: 1544 FUNC_3 = Zo’ jhe ‘Search function 

; 1545 FUNC_4 = %0°000051', ‘Write check function 

; 1546 FUNC_5 = %0°000061', ‘Write functi 

; iF a} FUNC_6 = %0'000071'. ‘Read function 

: 1549 DATA CONSTANTS 

: 1551 ONES = %0°177777", 'ALL ones data field 

: 1552 ONE = Zo' : ‘Single one data field 

: 1553 ZEROES = %0'000000', iALL zeroes data field 

5 1338 ZERO = %0'000000',. 'Zero data field 

: 1356 REGISTER ACCESS OFFSET INDEXES 

: 1558 MLCS1 = 0, 'ML_ADDR + %0°0' CONTROL AND STATUS REGISTER 1 
en eee es ABBE ¢ 1d: UMIBLSO MBA azetsre 

1961 MLDA = 3, IMLTADDR + 20°6" DESIRED ADDRESS REGISTER 

en ees ABBR ¢ EBS: GRUEMG ate aeensrene = 
: 1564 MLER = 6. iML“ADDR + 20°14" ERROR REGISTER 

; 1565 MLAS = 7, iML“ADDR + 20°16" ATTENTION SUMMARY REGISTER 
1366 MLLA « 8. {ML ADDR ‘ 20° * LOOK AHEAD REGISTER 

: 1568 mLDB = 9 it TADDR + %0'22" 

; 1569 = 10, iML“ADDR + %0'24' 

: 1570 MLDT = 11, iML“ADDR + 20°26' 

: 1571 MLSN = 12, iML“ADDR + 20° 3 

; 1572 MLE1 = 13, iML“ADDR + %0'32° 

: 1573 MLE2 = 14, iML“ADDR + %0°34° ECC CRC REGISTER 2 

: 1574 MLD1 = 15, iML~ADDR + 20°36" DATA DIAGNOSTIC REGISTER 1 
fe BE I ABR Beads BRUM tage ne STER Ts & 
15772 MLEL = 18, iMLADDR + %0'44" ECC ERROR LOCATION REGISTER 

: 1578 MLPD = 19 iML“ADDR + 20°46" PROM DATA REGIST 

: 1579 = 20, iML“ADDR + £0'50" BUS ADDRESS ES2TENSION REGISTER 
1380 MLCS3 = 21, iMLADDR + %0°52° CONTROL AND STATUS REGISTER 3 
: 15 i ERROR NUMBER CONSTANTS 

: 158 ’ 

; 1584 | weee ERROR LOCATION teee 


meme epee ee 


nm 3 


BSKEL4S 1o~nor~ 1385 19:97:25 TOPS-20 Bliss-16 V2(212) Page 5 
REV B PATCH 00 CONSTANT LITERAL DECLARATIONS 18-Mar-1982 15:44:41 PA: <NEALE>PMSKL4.BL1.1 (2) SEQ 0058 
; 1585 ERR_1 = 1, ‘Init code section 

: 1288 ERR .¢ = ¢: ‘Init code section 

; pe ERR_5 = 35, ‘Init code section 

; 15 ERR_4 = 4, 'Pm_this_bank routine 

3 1589 ERR_5S = 5, 'In_error_map routine 

: 1590 ERR_S = $. 'In error. routine 

; 1591 ERR_? = 7, ‘In _blast_tbl routine 

: 1236 ERR_§ = 8. 'Ver_blast routine 

; 159 ERR_9 = 'Init code section 

; 1594 ERR-10 = 10, iBL_proms routine 

; 1595 ERR_11 = 11, 'Ver_error_mask routine 

: 1336 ERR. 16 = 1¢. 'Ver_error_mask routine 

: 139 ERR_1 = 15, ‘Mass bus transfer routine 

; 1599 i DESIRED SECTOR ADDRESS FIELD SELECT CONSTANT VALUES 

: 1601 bnk$sel_size = 2, ‘Bank select size expression 

: 1606 ARRSSEL SIZE = 4, ‘Array select size expression 

: 1604 ! FLAG REGISTER SELECTION DEFINITION 

: 1606 {_flg_err = 0, j General purpose error fig 

: 1607 F_UNC_ERR_FLG = 1, ‘Indicates an uncorrectable error was detected 

s 1608 F-ERR_MAP_ENTERED = 2 ‘Indicates that the error has an entry 

; 1609 F-BLST_TBC_ENTERED = 5, ‘Indicates that the blast table was entered 

$ 1610 F-ALL_BAD CHIP = 4, ‘Indicates that this bank has one all bad chip >14 row or col bad 
: 1611 F-RAND_DATA = 5, ‘Indicates that random data pattern is presently 
: 1612 F-ABORT_ARRAY = 6, ‘Indicates that further spat ag of this array is to be aborted 
3 My oF F_D_CLK_TIME_OUT o 7. ‘Indicates that the data clock bit is hung high 
: 1615 ! BOOLEAN VALUES 

: 1617 TRUE = 1 ‘Logical true indicator 

; 1618 FALSE = 0, iLogical false indicator 

; 1620 ! CRC DATA BIT DEFINITIONS 

: 1622 CRC_P = 36, | ‘Ecc crc chip 

: 1623 CRC_A = 37, 'Eec cre chip 

; 1624 CRC_B = 38, ‘Ecc ere chile 

s 1e¢> CRC_NIBBLE = 9, ‘Ecce crc nibble nine 

: 1627 ! DELAY MACRO DELAY VARIABLES 

: 1629 one_us = 1, 'delay for one micro second 

: 16 FIFTY_MS = 100, ‘Delay for 20 milli seconds 

: 1631 TEN_MS = 10000, ‘Delay for 10 milli seconds 

; 1638 ! MISCELLANIOUS CONSTANTS 

: 1635 milla = 1, 'ML11A is a 16k mos ram array 

: 1636 SET_FLG = 1, ‘Constant to set a flag 


6 


BSKEL4 
REV B PATCH 00 CONSTANT LITERAL DECLARATIONS 
; 1637 CLR_FLG = 0, 

: 16 enabE = 1 

: 16 DISABE = 6: 

; 1640 


N 
TOPS=20 


‘Constant to set a hae 
‘Enable mlmr register function 
‘Disable mlmr register function 


Liss-16 V2(212) 


1 Marai9 16:07:57 
18-mor-1989 13:06 224 PA:<NEALE>PMSKL4.8L1.1 (2) 


Page 4 
SEQ 0039 


Nj ; 


AROSE LESETES 


LNA AAA AAA 
WAMU Ww 
BRDDADRRA 


a ee ee ee i ee 
SEREERES 
wWoONAW 


Ssacee 
MEW © 


oe 
co 


DOB Dow BoB IIS 


o 
w 


BSKEL4 
REV B PATCH 00 FIELD DECLARATIONS 
1641 %sbttl ‘FIELD DECLARATIONS’ 


FIELD DECLARATIONS 


field 


: REMAINING ERROR TABLE STRUCTURE MAP 


WRITE BUFFER STRUCTURE MAP 


BS 18:26:41 


tty 


hen this ch 
his chip fails 


v 
oo 


* ess 8&8 & & 


Sn 


| ge | se |e |e |e | | | ee 


Uno wo 


O—-fWylr © & 8 8 8 


3 
aw 


heed boned heed bed 9 OOO 


ooooeo 


tenet 


oon 
Ls 2 8 8 & & Kw 


¢ 
|] 
ootwu 


5 

~~ 
ti WMO 

nnn 
errr 


a 
~4 
(7 | 


nunhneunuu 
*es © & &© 8&8 & & 
won medh vere ed cna ond) wed somd 
* 6s 8 © &©@ 8&8 &@ & 
* &©® se © &@® &@ & & 


‘Select failing row number position 
‘Select failing column position 
‘Select both row and column position 


'This chip fails random data 
‘Select all failing ~~ ale 
‘Select all bits in by 


te 


ft write buf fer 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BL1I.1 (3) 


ip has additional failing row/col 
zeroes pattern 





Pa 5 | 
SEQ°0040 


ee oe 


-_——_—— 


i ee tes ee | 


rs ee ee. 


C 4 
18-Mar-19 
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REV B PATCH 00 FIELD DECLARATIONS 18-Mar-19 :44:41  PA:<NEALE>PMSKL4.BLI.1 (3) SEQ 0041 
: 1693 179 = uy 1, }. ‘Defines bit 8 ni - * 

; 1694 tee MM ‘Defines bit 9 °° of ™ 

: 1695 BIT~ “10 = C10," ° a iDefines bit 10" " “ 

: 16 BiT_11 = (11, 1, 3° Defines bit 11 ‘' sis se 

; 169 BIT@12 = 12. 1, 02. iDefines bit le  * ® 

: 1698 B1T-13 = £13, 1, 0]. iDefines bit 13" “" 

; 1699 B1T-14 = £14, 1. 0J, iDefines bit 14" " 

; 1700 BIT_15 = (15, 1, OJ. ‘Defines bit 15 °’ se = 

; 1701 WRD = CO, 16, 03 ‘Defines word of the write buffer 

: 1706 tes, 

: 1704 | TEMPORARY BLAST TABLE STRUCTURE MAP 

: 1706 MAP_ TMP _BLST_TBL = 

: 1708 nie NO = £0, 4. 01, ‘Defines failing ch chips nibble position 
: 1709 0], ‘Defines chips fai Ling row or column 

: 1710 NO 5. a} 85 ‘Set = row address, clr = column address 
: i) _ 

: 1213 ; RH / ML-11 REGISTER ACCESSING STRUCTRUE MAP 

; 1715 MAP_ML11_REG = 

; 1919 oe 

: 1718 MLCS1 CONTROL STAUTS REGISTER 1 

: 1720 sc = 15 1, 0) ‘Special condition 

: 1721 (14, 1, 03 Transfer error 

: 1722 13, 7 0), Bus pari ty error 

: 1723 OVA = =i # "0), Deis available 

: 1724 RDY = (£7, 1, 0J. ‘Drive ready 

: 1725 IE = £6, 1. j, ‘Interrupt enable 

; 1726 GO = [0 0] ‘Funtion go bit 

; ieee FUNC = to’’ 6, 0). 'Funtion code 

: 1729 ; MLWC WORD COUNT REGISTER 

; ye we_reg = (0, 16, 0], ‘word count register 

: 1733 ; MLBA UNIBUS ADDRESS REGISTER 

: ie BA_REG = (0, 16, 0]. '‘Unibus address register 

: 1732 : MLDA DESIRED ADDRESS REGISTER 

; he da_reg = (0, 16. 01, ‘desired sector register 

: 1761 i MLCS2 CONTROL AND STATUS REGISTER 2 

: 1743 DLT = 13. 1. 01. ‘Data lat 

: 1744 WCE = ‘write check error 


———— — 


oon ee eee . . = — EE A A 


ee - 


PBPISIISSVRFRAVASIVISINIIIISS 


MLAS ATTENTION SUMMARY REGISTER 
attn_reg = (0, 16, 0], 

: MLPA PROM ADDRESS REGISTER 
PA_REG = £0, 16, 0], 

MLMR MAINTENANCE REGISTER 
SIZING = (11, 5, 0]. 

TRT = (8, 2, 0 

ARR_TYP = Ci0, 1, 01, 

F-MAR = [7, 1, 0J, 


RE 
PRO = (6, 1, 03 


jregister mod erfused error 
'Iilegal register error 
‘Illegal function 


‘attention summary register 
‘Prom address register 


‘System sizing 
Dendy Aig 
inefresh margin 
'Prom read/write 


D 4 

18-Mar-1982 16:07:57 TOPS=-20 Bliss-16 V2(212) Pa 7 
See PATCH 00 FIELD DECLARATIONS ets 13 19:07 24 PA: <NEALE>PMSKL4.8L1.1 (3) SEO 0042 
: 'Unibus parity error 
: 1748 nep= (15. 1. ‘ iNon-existent drive 
: 1769 NEM = (11, 1, OJ. ‘Non-existent memory 
: 1748 PGE = £10, 1, QJ, ‘Program error 
: 1749 mxF = £9, 1, 0 iMissed tranfer 
: 1750 MDPE = (8, {, 03. 'Massbus data bus parity error 
: Wikre aero? 
: 1538 CLR = 3. 1, 0 F i soem .oteer 
Ps = o o . a 
: 1586 BAI = (3, $ 0}. iunibus address increment inhibit 
: 1736 DRV_SEL = £6, 3. 02. ‘unit select 
: 1738 : MLDS DRIVE STATUS REGISTER 
: 1760 ATTN = (15, 1, 0]. :Attention active 
2 HR arta Figg’ Ihedtun on tite 
: = £10, 1, 03, iLast block 
Ba 3 ees eae 
> = oe e ” a ve 
: 1706 vv = (6, 1. 0J, ‘Volume valie 
: 7 | MLER ERROR REGISTER 
: DCk = £15, 1, 0). ‘Data check 
: a UNS = a * a3: ‘Drive unsafe 
$ opi] = (13, 1. 0]. ‘Operation incomplete 
; IAE = £10, 1, 0]. ‘Invalid address error 
: AOE = (9, 1, OJ, ‘address overflow error 
: ECH_ERR = £6, 1. 03. ‘Ece hard error 
; e235, Ve 0), ‘Data parity error 
; lal v. ‘Control parity error 


; 
————4 


Se TS TT tt cet, 


BSKEL4 


REV B PATCH 00 FIELD DECLARATIONS 


1797 


{ 


oo 0 Go Go 00 Go Go Go Go Go GO 
ESSUSORENSS eso urcn seesearaNcss 


Sti 


eee ee eed eee eth cere eee ee ee eee ee eel wel ee ee ered ee cel ee ee were ce cd ee ee eed ee ee ce ee ed ce ee eed ee ee ee ce cee ceed ce ee ed ee ed ee eee ed eee eed 
SRPRRRRCRCS 
ARUN =O OOO 


+s 
oN 


ss 


hate 

ont 

SoTS 

~~ ov uu 
nm oer 
~——s © 
x 
— *® 
os 
i © 
s 


Ve o 
fo. 19° 0), 
DRIVE TYPE REGISTER 


i = fo: i i: 03: 


MLSN SERIAL NUMBER REGISTER 
SERIAL _REG = (0, 16, 0J, 
MLE1 ECC CRC WORD REGISTER 1 
PAR CRC th? & rie 6. 0]. 


- 


caCA= 

Ft -t6, O56. 6). 
; mse ECC CRC WORD REGISTER 2 
5 $: i 1. 0). 

8°33 = 0 

8 = 

ose = fie. 2} 
B_ = ¢° 1" ? 
B_ = Hi * - + 
B38 = (14, 1. 3 
cRc$e = (0, 6 
E2_REG = (6, 16, 63. 
MLD1 DATA DIAGNOSTIC REGISTER 1 
b0 = £0, 1 01. 
B= fi 1. 8 

gg fe 1 
B74 = (4. 1. 01. 
B-? = (5, 1. 0], 
8-9 = (7, 1. a ' 
8-8 = (8. 1. 0J. 
B°9 = (9. 1,0 

8-10 = Cio, 1, 01. 
Bid = E12. 1. 08. 
g-15 = 18° 1, 03. 
a 14 = 14, Se 0], 


4 
te-har=1982 16:07:87 





TOPS-20 eer’. ye iete) 
PA: <NEALE>PMSKL4 -1 (3) 


'Prom disable 
‘Data clock 


‘Data diag mode 
ipata ghegk enabl enable 
‘Ecc d 

‘Ecc dia 


9 i 
‘Maintenance register 


‘Drive type 
‘Drive type register 


‘Serial number register 


‘Parity crc word 
‘CRC word A-~A 
‘Ecc ere register 1 


iCre word b=b 
‘Ecc ere register 2 


FP CP 6F OF FF £8 £8 £8 OF £8 8 £8 8 OF OP 


ee ee et ne ere es es a eee omens . 
LL = —_ ae wer em ee mw rere re ne ne a ws ee ne ee ee re LOL ALLE Ae 


- a oe er oe cen — <9 eo eee ww ee eee 
A Se ee 
_—_—_—— «2+ 


, 
’ 
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= (15, 1. 0), ‘Data bit 15 
D1 REG = f0,°16, 0). ‘Data dies register 1 


a en 
urn 


wi 
WOO 


: i MLD2 DATA DIAGNOSTIC REGISTER 2 

: 1854 816 = £0, 15, 0), ‘Data bit 1g 

; 1855 8.17 = (1, 1. ‘Data bit 1 

: 1856 8-18 = g- 1 d Data bit 18 

; 185 8.19 = (3, 1. OJ. ‘Data bit 1 

$ 1838 B20 = (4, 1. OJ. ‘Data bit 9 

: 1859 B21 = £5, 1. 0). iData bit 

; 1860 B_ 4 = g. 1, OJ, ‘Data bit ¢ 

: 1861 B25 = £7, 1, OJ. ‘Data bit 

: 1862 B24 = (8, 1. 4 > ‘Data bit 24 

; 186 B25 = (9, 1 ‘Data bit 25 

; 1864 B26 = 16, i, 03. ‘Data bit 26 

: 1865 B27 = (11, 1. 0). iData bit 27 

; 1866 B_28 = 12. is 3 ° ‘Data bit 

: 1867 8 29 = (135. 1. 0]. ‘Data bit 

: 1868 B30 = (14, 1, ° . ‘Data bit 30 

: 1869 3°31 = £15. 1. 0]. iData bit 31 

; 24. 0B2_REG = fo. 16, 0J, iDete diag register 2 

: 1872 : MLEE ECC ERROR REGISTER 

: 1874 UNC = (15, 1 01. 'Uncorrectable error 

: 1875 SGL = (14. 1, ‘Single error 

: 1876 crc = (13, 1, oie 'Cre error 

: 1877 CHAN = [6 6, 'Channel in error 

: 1878 E_Bit = C6. 6. 03. iError function 

: 1880 : MLEL ECC ERROR LOCATION REGISTER 

: ise EL_REG = (£0, 16, 0). ‘Error location register 
: 1884 ' MLPD PROM DATA REGISTER 

: ise PD_REG = (0, 16, 0]. ‘Prom data register 

: 1888 | MLBAE BUS ADDRESS EXTENTION REGISTER 

: Hh +! BAE_REG = (0, 16, 0), 'Sus address extention register 
: 1892 . MLCS3 CONTROL AND STATUS REGISTER 3 

: 1894 CS3_REG = (0, 16, 0). ‘Control and status register 3 
: 1896 ML_ALL ACCESS ALL BITS IN SELECTED REGISTER 

: 1398 ML_ALL = (0, 16, 0) ‘access all register bits 
: 1 , tes. 


ES 


ae | 
Ww 
Ww 


er, en EE EE EE =. <_oEEee— 


BSKEL4 


REV B PATCH 00 FIELD DECLARATIONS 

: 1901 ' Yer czmicb prom maintenance error 
: 1308 : log table error log table map 
1 PM_MAP = 

; 1908 set 

: 18 BNKS_PM = (0, 4: 2, 0). 

; 190 BRDS$_PM = ‘. 

; 1908 SITS. ¢* = 

: 1909 UNIT 6. "134. 3, i. 

: 1910 S ae “f1.°0 i6.. 

e 1911 WR $_0 = C e 0, "16, “0], 

: 126 WRDS_1 = (1, 0, 16, 0 

; 191 tes; 

3 1914 


18-Harat 
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8 18 18:06 


_——e net ae + ee 
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3 : REV'B PATCH 00 STRUCTURE DECLARATIONS 18-Mar- 4:41 PA:<NEALE>PMSKL4.BLI.1 (4) SEQ 0046 
; LD af Zsbttl "STRUCTURE DECLARATIONS‘ 
| : isi? i STRUCTURE DECLARATIONS 
38 1919 
ond : 19 9 structure 
| : 19 ; ML-11 register accessing structure 
| : 1924 i this structure allows ML-11 register 
2 1925 ' accessing to be transportable between 
| $ 1? S the PDP-11 and VAX diagnostic supervisors 
155 | : 1928 !<BLF/NOFORMAT> 
1980 
; 1931 RH CO, P. S. EJ = 
| ; 13s begin 
| : 1934 local 
| : Lb ML_REG; 
| : 1937 ML_REG = .(RH + Zupval*0)<0, Xbpval, 0>; 
| : 1939 end <P, S, E>: 
: 1941 !<BLF/FORMAT> 
| 
} 
556 





571 


RE ee eee ee = 
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4G REV B PATCH 00 EXTERNAL DECLARATIONS 18-Mar=1983 15:44:41 PA: <NEALE>PMSKL4.BL1.1 (5) SEO 0047 


Zsbttl ‘EXTERNAL DECLARATIONS’ 
EXTERNAL DECLARATIONS 


external routine 
Random number generator routine written in macro source code 


RANGEN : novalue: 


| external 

| . Random number generator routine seed variables 

| SEED1, ‘First word of random number buffer 

| SEED2. ‘Second word of random number buffer 
SEEDS, ‘Third word of random number buffer 
RANDAT, 'Linkage which random numbers are returned 


t 
Diagnostic supervisor global variables 
LSUNIT; ‘Supervisor storage of units selected 


St et SRLS een tt tt 3 Se 


572 


es = eee em 


a a ee ee ee 
me ee wee wee 
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BSKELS 
REV B PATCH 00 OWN STORAGE DECLARATIONS -Mar-19 PA:<NEALE>PMSKL4.B8L1.1 (6) SEQ 0048 
1366 Zsbttl "OWN STORAGE DECLARATIONS’ 
968 ' Own storage declarations 
969 =! 
970 
on own 
$78 : VER CZMLCB added these storage structures to this version 
979 : Prom Maintenance error summary report structures 
977 PM_COUNT, ‘Counts number of bad chips found 
ae PM LOG : blockvector (128, 2, word) field (PM_ MAP), 


7 Error map interigation structures 





cou. CNT -TBL : kEiooa 4 ‘os byte] volatile, !Column count ¢ table 

REM TBL: block 100] field (MAP_REM_TBL) vores ste. ‘Remainder table 

See RE EM TBL : plec ock if $3 field (RAP REM -1BL) volatile, 'Copied remainder table 
: vector (10, byte] volatile, ‘Column count table pointer 


i. 1/0 buf fers 
VER CZMLCB changed 128 to 256 


WRT BUF : block [(256 + 511*2)] field (MAP_WRT_BUF) volatile, ‘write buffer 
RD_BuF : vector [256] volatile. ‘Read buffer 


Failing row and sector storage structure 
ERROR_MAP : blockvector (512, 8] volatile, ‘Error map of failing rows and sectors 
! Failing chips and pattern storage structure 


a a on ee ee ee ee ee ee eee SS SS LL.) 


PERE RELL Tilt ft 


so CHIP_TBL : block [39] field (MAP_CHIP_TBL) volatile, ‘Failing chip table 

2002 ! Row & col blast information storage structure 

2004 imp BLST TBL : block eve} figt¢ (MAP_TMP_BLST_TBL) volatile, ‘Temporary blast table 
2005 ae lt blockvector (4, 512] volatile, ‘Actual blast table 

Sone ‘Column adrs base Tndox into blast table 

$008 ; met came structure referance 

2010 ML_ADDR : ref RH field (MAP_ML11_REG) volatile, (Rh base register address 

2012 : i Init code global variab/es 

Sold COL, ‘Number of columns oi ae ram 

2015 A But: : “volatile, imt=11 divice under t 

2016 SEL : volatile, ‘Fabricated desired sector sire —— array maint is performed 
2017 TSTED_BNK : volatile, ‘Count of how many banks to array maint 


ee ee ee 


— ee ee eee 


A et 


me em ete eee eee ee 
TE 


BSKEL4 
B PATCH 00 OWN STORAGE DECLARATIONS 


REV 


oO 
—~— 
co 


NAUSWN-200 


ooo 


SIBIIyyyys 
S3Sy 


oO 
eae 


2037 
2038 
44 
2041 


INC_BNK : volatile, 
INC_ARR : 


L 
BNK_SEL_POS 
BNK_NUM_SEC 
; Program ‘lag registers 


: volatile, 
$ volatile, 


BAD BNK_REG : bitvector [8] volatile, 


FLG REG : bitvector (16) vola 
DEGRADE _MOD_REG : bitvector [ 


: Miscellaneous variables 
SIZE : volatile, 
DST Ps volatile, 
SRC : volatile, 
LST_TSTED_ARR : volatile, 
RAND_PASS : volatile; 

! 

: Supervisor global equates 


EQUALS: 


Ei te. 
J] volatile, 


ee 
a ne ee ew ee _— 
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‘Indicates if bank has new errors 
‘General flag register 
‘Degrade array mode flag register 


‘Transfers word count size 

‘Transfers destination address 

‘Transfers source address 

‘Last array module number in ml-11 system 
‘Random data pass variable 


Liss-16 v2(212) 
PA: <NEALE>PMSKL4.B8L1.1 (6) 


ee 
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BIND DECLARATIONS 18-Mar-1 PA:<NEALE>PMSKL4.BLI.1 (7) SEQ 0050 
Zsbttl "BIND DECLARATIONS‘ 


Bind declarations 


2 


R CZMLBB newly defined messages to print out statisical 
om maintenance messages. 


lit tree tt D2%A(D) ZD1ZA(D) ZD2ZA(D) ZD6ZA(D)"), 


mele tt te te 
v< 


z 
~ 






= uplit (Zasciz‘UNIT ARRAY #: BANK #: BIT @#: COUNT #:'), 
PM = uplit (Zasc CTE DRM M MAIN NTENANCE PERFORMANCE SUMMARY REPORT’), 
PM_ = uplit (Zasciz'NO ADDITIONAL ERRORS a Hepes. WITHIN THIS UNIT’), 
PM_ = uplit (Zasciz'ZNZA THE FOLLOWING LISTS AN ACCUMLATIVE COUNT OF PREVIOUSLY AND NEWLY‘). 
PM_ = uplit (Zasciz°ZNZA FAILING ROWS AND COLUMNS DETECTED WITHIN EACH ERRORING CHIP. aa 
PM_ = uplit (Zasciz'ZNZA HOWEVER THIS LIST DOES NOT acon INDICATE THE NUMBER OF NEWL 
PM_ = uplit (Zasciz'°ZNZA FAILING ROWS OR COLUMNS BLASTED2ZN’) 
' Error and run time messages 






T_MSG 
HQ_ERR_MSG = uplit (Zasciz ‘HARDWARE 6 CORRECTLY '), 
G"= uplit (Zasciz"BLASTING SYSTEM WOOF SELECTED °), 


= ies ANE 
SUPRES MSG = uplit (Zasciz' SUPPRESSING PROGRAM EX SO euTION "), 
RET_DRS_MSG = uplit (Zasciz" doy >*) 
LUN” "MISS_MSG L E NOT PRESENT’), 


§§51." 


2 
2 
v 
; 
§ 





Be 







rs et 
RRORS STILL EXIST A fie 
DRIVE ERRORS 
MASS BUS .- 
URED DURING A MASS BUS WRITE TRANSFER’), 
OCCURED DURING A MASS BUS WRITE CHECK TRANSFER"), 


WRT_XFER_MSG = 
WT CHK _XFER MSG 
x_ASG = uplit (Zasci 


06 


Printing formats 





—_— + 


EE ED Se eee eee 


mn a ee oe eee ee — 
y - - es oe 
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REV B PATCH 00 BIND DECLARATIONS 18-Mar-1982 15:44:41 | PA:<NEALE>PMSKL4.BL1.1 (7) SEQ 0051 
: = uplit (Zasciz*ZTZN') ! PRINT ONE MESSAGE 
: 5 uplit (Zasciz'ZTZTIN*) ‘PRINT TWO MESSAGES 
; 096 = upt it (Zasciz'ZTZTZTEN') i PRINT THREE MESAGES 
097 FOUR_ASG = uplit (Lage ig XTRTETRTEN'), i PRINT FOUR MESSAGES 
3 098 CRLF = uplit (Base? *ZN'), 
: 099 LF = uplit (Zasciz°%N'), ‘PRINT A LINE FEED <CR> 
; 2100 LFS = uplit (Zasciz' ZN2N') i PRINT TWO <CR> 
: 101 0.1_PRINT = uplit (Zasciz'£T%012N'), i PRINT OCTAL DIGIT AND A MESSAGE 
: 102 0"6“PRINT = uplit (Zasciz'ZTZ062N"), i PRINT SIX OCTAL DIGITS AND A MESSAGE 
: 10 D-2-PRINT = uplit (Zasciz'ZTZD2%N'), i PRINT A TWO DIGIT NUMBER AND A MESSAGE 
: 104 DRV7SEL_PRINT = uplit (Zasciz'ZADRIVE %01%A SELECTEDIN' 
: 2105 | PRINT THE DRIVE SELECTED NUMBER TO THE OPERATOR 
: 106 ARR_SEL_PRINT = uplit (%asciz'%S%S%SUSZSESRSESZATESTING ARRAY 2D22N") 
: 10 PRINT THE ARRAY SELECTED TO THE OPERATOR 
; 108 BNK_SEL_PRINT = uplit (%asciz* %S%S¥SZSZSESUSZSZSASZSTSISZSZSZS LSXSLSZD1IN'), 
; 109 ! PRINT THE PRESENTLY UNDER TEST TO THE OPERATOR 
: 2110 A_B_C_PRINT = uplit (Zasc 12) RAARRAY3S2D23SZABANK S201ZSZABIT “7s D2N') 
: 2111 A-B-N7PRINT = upLit_ (asc iz’ SAARRAYZSSD2%SABANKZS201 ZSZANIBBLEZS2D22N') , 
: 112 REP"PRINT = uplit (Zasciz‘ ZAREPLA SZD2ZSZSZAOR RERUN PROGRAMIN'), 
: 211 “PRINT = uplit (Zasciz' ZAARRAYZS2D22SZABANK oeO eee 
: 2114 C31~PRINT = upt it (Zasciz  ZSzsesz SISLSESLSESASZSESLSZSESZSZOGIN’ ), 
: 2115 PRINT = uplit (Zasciz'ZSzSzS TSLSISLSESESESESZSZSZSESLOGIN' ), 
; 2116 “PRINT = uplit (Zasciz’ZSZS2zSzS £S%S% SZSZSZ062N'), 
: 2117 DA PRINT = uplit Chascis ote ZSZS P 
: 2118 S2 PRINT = uplit (Zasc z' SZSZzS ), 
3 2119 PRINT = uplit (Zasciz’ZSzS ZSZS ZSZSZSZ062N'), 
; 2120 ER-PRINT = uplit (Zasciz'ZSzS <S2S ZSZSZSLOGIN'), 
: 2121 AS_PRINT = uplit (Zasciz'ZSZSZS ZSZS ZSZSZSZSZO6IN'), 
: 2122 MR-PRINT = uplit (Zasciz'%S%S ZS%S {SZSZSLO6IN' ), 
: 2125 DT_PRINT = uplit (Zasciz‘'ZSZSzS ZS%S ZSZSZSZO6IN'), 
3 2124 “PRINT = uplit (Zasciz‘ZSZSZSzS ZSZSZSZSZSZO6IN'), 
: 2125 EE_PRINT = uplit (Zasciz‘ZSz$ SZSZSZS% ZSZSZSZSZOGIN'), 
; 2126 L“PRINT = uplit (Zasciz'ZS%SZSz5S ZSESESISZ SZ062N'), 
: sige ADER_PRINT = uplit (Zasciz'%SZS% ZSZSZSZAR 
: 128 COL_DESC_PRINT = uplit (Zasciz’%S2 TER NAMEZS 
: sige X_PRINT = uplit (Zasciz‘"); 
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MACRO DECLARATIONS 
Zsbttl "MACRO DECLARATIONS‘ 
: Macro declarations 


mac r? 


ML-LL register accessing macro 


i this macro allows ml-11 register accessin 
! transportable between the PDP-11 and VAX 


supervisors. 
WRT_RH (O, FIELDNAM, IMAGE) = 
begin 
local 
MLREG; 
REG = .ML_ADDR (0, 


ML ML 
MLREG<%fieldexpand (FIE 
(.ML_ADDR + Zupval*0) = .MLREG; 


end;4. 
t 


: Clear rh and mass bus devices 


CLR_MBUS = | 
WRT_RH TMLCS2, CLR, ONE);!Clear the mass bus 
WRT _RH (MLCS2, DRV_SEL, .ML_DUT);%, 


Clear mass bus devices 


CLR_DRIVE = 
WRT_RH TMLCS1, FUNC, FUNC_2);%, 


me mee ene — 
——— — 
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ae 18:46:21 PA: <NEALE>PMSKL4.B8L1I.1 (8) SEQ 0052 | 
g to be 

iagnostic 


S> = IMAGE: 


‘Restore the drive select number 


'Clear the drive 


Maintanence register diag mode setting macros 


-RD_PROM_MODE = 
WRT_RHTMLMR-MR_REG,PM_RD_MODE) ;%, 


E = 
WRT_RH am eAR_REG oPM_WRT_MODE) ;%. 


DAT_DM (x)= 

WRT_RH TMLMR,D_DM, X);%. 
ECC_DIS (x) = 

WRT_RH TMLMR.E DIS, X);%, 

WRT_RH CALAR.P_RW, X):%, 

D.CLK, ONE);%, 


WRT_RH (ALMR,P_DIS, X);:%, 
DCK_ 





‘Enable prom reads 

‘Enable prom writes 
'Enable/disable data diag mode 
'Enable/disable ecc disable mode 
‘Enable prom read write 

‘Data clock 

‘Enable prom disable 


LAL LLL LBD LLDBL LLL LLL LLL LL A — ae 


. 2 — 
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; 183 WRT_RH (MLMR,D_ EN, X);%, 'Enable data check enable 
; M 21 1 fa DM (X)"= 
; ; 5 WR AA TMLMR, E _DM, X);%, ‘Enable ecc disable 
: / F Miscellanious macros definitions 
: mM 21 
: 189 Zo’ z ‘Enable prom read mode 
; m 2191 PM_WRT_MODE 
: 1% %0°000T40'% ‘Enable prom write mode 
: m 219 FULL_WRD = 
: 1S 0, 16, O02: ‘Selects full word of data element 
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ae 


get called when the 
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gnimsg will print 
e error registers. 
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sg Ww 
out to the 


drive dete 
bus trans 


Functional description: register d 
“ This b il 


SRRROSSOS 


fF ee ef oe 
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‘Print the dump message 


BGNMSG (DUMPER) ; 


oS 
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~TITLE BSKELS 
-IDENT /REV B / 
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000000 


001008 


00140 
00171 


002222 
00 
007¢ 
0102 


030230 
030346 
030372 
040372 


040374 
040376 


040400 
040402 


PM. COUNT: 


-BLKW 
PM.LOG: .BLKW 
COL.CNT.TBL: 


-BLKW 
REM. TBL: .BLKW 


COPIED.REM.TBL: 


COL.PTR:.BLKW 
WRT. : BLKW 
RD.BUF: .BLKW 
BLKW 


CHIP. TBL: 
TMP.BLST.TBL: 


ARRSBNK SEL: 


EVEN 
FLG.REG: .BLKW 
DEGRADE 


SRC: P 
LST.TSTED.ARR: 


RAND.PASS: 
-BLKW 


4000 
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18 


G 6 
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~GLOBL RANGEN, SEED1, SEED2, SEEDS, RANDAT 


-GLOBL LSUNIT 


1 BIT15== ~ 100000 
04 BIT14== rt 
02 BIT13== 20000 
01 BIT12== 10000 
roles BIT11== 4000 
+Ob B1T10== 2000 
001 B1T09== 1000 
000400 BITO8== 400 
000 BITO7== 200 
0001 1T06== 100 
000040 BIT05== 40 
000020 1T04== 20 
00010 B1T03== 10 
000094 BITO2== “ 
000002 BITO1== 2 
000001 B1T00== ‘ 
001000 BIT9== 1000 
000400 BIT8== 400 
000200 BIT7== 200 
000100 BIT6== 100 
0 BIT5== 40 
000020 BIT4== 20 
000010 B1T3== 10 
000004 BIT2== & 
000002 BIT1== 2 
000001 BIT0== 1 
000040 EF .START== 40 
000037 EF .RESTART== 7 
000036 EF .CONTINUE== 
000035 EF .NEW== ; 
000034 F .PWR== 4 
000340 PR1I07== $60 
000300 aia 00 
000240 PRI05== 240 
000200 PR104== 2 
000140 PR1I03== 14 
000100 PRIQ2== 100 
000040 PRIQ1== 40 
000000 PRI00== 0 
000004 EVL== & 
000010 LOT== 10 
000020 ADR== 20 
000040 IDU== 40 
000100 ISR== 100 
200 UAM== 200 
00 BOE== 400 
001000 PNT== 1000 


ee ee ne - 
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eine PRI== 2 
IXE== & 
01 IBE== 1 
2 IER== 2 
LOE== 40 
100000 HOE== -100000 
, FMT16= P.AAA 
104° PMSHEADER= P.AAB 
170° PM.HEADER= P.AAC 
000244° PM. 14.MSG= ~AAD 
000324° PM.10.MSG= P.AAE 
000434° PM.11.MSG= - AAF 
544° oe iG-te = P.AAG 
56° PM.1 -MSG= P.AAH 
000726° ILL.CMD .MSG= P.AAI 
001000° BGN.MSG= P.AAJ 
001032' START .MSG= P.AAK 
001070" HQ.ERR.MSG= P.AAL 
001144' HQ.MSG= P.AAM 
001222° END .MSG= P.AAN 
001256° SUPRES. P.AAO 
001316° RET.DRS.MSG= P.AAP 
001340° LUN.MISS P.AAQ 
001372" CON.A.MSG P.AAR 
001406° CON.B.MS P.AAS 
bby CON.C.MS P.AAT 
001436° CON.D.MS P.AAU 
001454° UNC. CHIP. P.AAV 
001506° GTR.MSG= P.AAW 
001562' UNIT.SEL.MS P.AAX 
001632" SW. MS P.AAY 
001714° T.MS P.AAZ 
001764° -AD P.ABA 
002040° UNC. ERR.MSG= P.ABB 
002116° TIME. P.ABC 
002176' REP .M/, P.ABD 
002236' MEM. ERR P.ABE 
002310° UNX.DRV P.ABF 
002352° RD.XFER.MSG=_ P.ABG 
002422" WRT .X P.ABH 
002474° WT.CHK.XFER. MSG= P.ABI 
002554 ° X .MSG= P.ABJ 
eae i ne 
$09894 . THREE .MSG= P. ABM 
002606 -MSG= P.ABN 
OOS 2° CRLF= P.ABO 
OSs : LF= P. ABP 
632° LFS= P.ABQ 
002640' 0.1.PRINT= P.ABR 
002650° 0.6.PRINT= P.ABS 
002660" D.2.PRINT= P.ABT 
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002670° DRV.SEL.PRINT= P. ABU 
002722" ARR.SEL.PRINT= P. ABV 
002770' BNK.SEL.PRINT= P. ABW 
003052" A.8.C.PRINT= P. ABX 
00 126 A.B.N.PRINT= P.ABY 
003200° REP.PRINT= P. ABZ 
003264" A.B.PRINT= PLACA 
003320' C$1.PRINT= P.ACB 
003406" WC.PRINT= P.ACC | 
003472" BA.PRINT= PACD | 
003556" DA.PRINT= PAC | 
003642" CS2.PRINT= P.ACF | 
003730" DS.PRINT= P.ACG | 
004014 ER.PRINT= P.ACH | 
004100" AS.PRINT= P.ACI | 
004164" .PRINT= P.ACJ | 
004250° DT.PRINT= PACK | 
004334" -PRINT= ACL | 
004420 .PRINT= PLAC | 
004504" EL. INT= P.ACN i 
004570° HEADER. PRINT= P.ACO | 
004642" COL.DESC.PRINT= P.ACP | 
004716" x. PRINT= P.ACQ | 
-SBTTL DUMPER EXTENDED MESSAGE PRINTING SECTION 2 
000000 "PSECT $CODES$ | 
000000 004767 000000V DUMPER: : JSR PC ,MSDUMPER : 2206 
000004 104423 TRAP —_-23 
000006 000207 RTS PC 


; Routine Size: 4 words | ' 
: Maximum stack depth per invocation: 0 words 


2207 PRINTB (HEADER_PRINT); ‘Print the header 








: 2208 PRINTB (COL_DESC PRINT): iDescribe the column headings 

; 2209 PRINTB (CS1 NT, .ML_ADDR CMLCS1, ML_ALLJ): ‘Print mics! contents 

; 2210 PRINTB (WC_PRINT, .ML_ADDR , ML_ALLD: ‘Print mlyc contents 

5 2211 PRINTB (BA_PRINT, .ML_ » ML_ALLJ); ‘Print mlba contents 

$ $si¢ PRINTB (DA_PRINT, .ML_ADDR ML_ALLJ); ‘Print mlda contents 

; 3213 PRINTB (CS2_PRINT, .MC_ADDR CMLCS2, ML_ALLJ); ‘Print mlcs2 contents 

; 2214 PRINTB (DS_PRINT, .ML_ MALL); ‘Print mids contents 

: 2215 PRINTB (ER_PRINT, .ML_ADDR ML_ALLJ); ‘Print mler contents | 
; 2216 PRINTB (AS_PRINT, .ML_ ML_ALLJ); ‘Print mlas contents | 
5 2217 PRINTB (MR_PRINT, .ML_AD ML_ALLJ); ‘Print mlmr contents | 
; 2218 PRINTB (DT_PRINT, .ML_ADDR ML_ALLJ); ‘Print midt contents | 
: 2219 PRINTB PRINT, .ML_ADDR ML_ALLJ); ‘Print mlsn contents 

: 2220 PRINTB (EE_PRINT, .ML_ADDR EE, ML_ALLJ); ‘Print mlee contents 

: $555 ta a (EL_PRINT, .ML_ADDR CMLEL, ML_ALLJ); ‘Print mlel contents 
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~SBTTL MSDUMPER EXTENDED MESSAGE PRINTING SECTION 
000032 ceetes 


S 
So 
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000014 012746 004570° MOV #HEADER.PRINT,~(SP) : 2207 
000020 012746 000001 MOV #1,-(SP) 
000024 010600 MOV SP.RO : SP,* | 
900026 104414 TRAP —-_-‘'14 | 
000030 g12716 004642" MOV #COL.DESC.PRINT, (SP) F 2208 
000034 012746 000001 MOV #1,-(SP) 
000040 010600 MOV SP,RO : $P,* 
000042 104414 TRAP 3s «14 
000044 017766 040374" 000036 MOV L.ADDR, 36(SP) : *,ML.REG 2209 
000052 016616 000036 MOV 6(SP) , (SP) * ML.REG,* 
0000 012746 003320" MOV 4CS1 PRINT, ~(SP) 
init 012746 000002 MOV #2,-(SP) 
000066 010600 MOV SP,RO : $P,* 
000070 104414 TRAP —s_-‘14 
000072 016700 040374" MOV ML.ADDR,RO : 2210 
000076 016066 000002 000040 MOV 2(RO) ,40(SP) * *,ML.REG 
000104 016616 000040 MOV 40(SP5, (SP) + ML.REG,* 
000110 012746 003406" MOV #uC PRINT, ~(SP) 
000114 012746 000002 MOV #2,-(SP) 
000120 010600 MOV SP,RO : SP,* 
000122 104414 TRAP ‘14 
000124 016700 040374' MOV ML.ADDR,RO : 2211 
000130 016066 000004 000042 MOV 4(RO) ,42(SP) > #,ML.REG 
000136 016616 000042 MOV 42(SP5, (SP) * ML.REG,* 
000142 012746 003472" MOV #GA.PRINT ,~(SP) 
000146 012746 000002 MOV #2,-(SP) | 
000152 010600 MOV SP,RO : SP,* | 
000154 104414 TRAP ‘16 
000156 016700 040374° MOV ML ADDR RO : 2212 
000162 016066 000006 000044 MOV 6(RO) .44(SP) : *,ML.REG 
0001 016616 000044 MOV 44 (SP), (SP) : ML.REG,* | 
900174 12746 003556" #DA.PRINT,~(SP) : 
012746 000002 #2,-(SP) 
010600 MOV SP,RO : SP,* 
104414 TRAP 3s «14 
016700 040374 Mi, ADDR RO : 2213 
016066 000010 000046 10(RO) ,46(SP) > *,ML.REG 
16616 000046 46(SP) . (SP) : ML.REG, 
12746 003642" #CS2_ PRINT. ~(SP) 
12746 000002 #2,°(SP) | 
10600 SP,RO : SP,* | 
104414 14 | 
16700 040374 ADDR, RO ; 2214, 
6066 12 000050 12(RO) ,50(SP) > *,ML.REG | 
(SP) > ML.REG,* 


003730" 


000002 
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RRO 


#DS.PRINT,-(SP) 
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Z%sbttl ‘ROUTINE DECLARATIONS‘ 


global routine SUMMARY : novalue = 
begin 


++ 
Functional Description: 
This global routine is called from the report 
code section contained in skell 2 of this diagnostic. 


The purpose of this routine is to report to the 
operator a statistical report of the prom maintenance 
program on this unit. 


Formal Parameters: 
e 


Implicit Outputs: 
Completion codes: 
none 


i 

i 

' 

! 

i 

i 

i 

i 

i 

! 

! 

! Implicit Inputs: 
WBUF F 

! 

! 

! 

! 

' Side Effects:. 

; none 


+ 

See if any additional errors were found bad 

during execution of the Prom Maintenance program. 
lf additional errors were found then dump to the 
the console terminal the Prom Maintenance program 
oumnery paper’ code else print that no additional 
were found. 


. -PM_COUNT gtr ZERO ‘Were additional errors found 
en 


begin : 

PRINTS (CRLF); ‘Print a formating <crl f> 

PRINTB (ONE_MSG, PM_HEADER); 'Print the header message 

PRINTB (PM_T0_MSG); ‘Print out summary message 

PRINTB (PM_11_MSG); 3 ‘Print out summary message 

PRINTB (PM_12_MSG); ‘Print out summary message 

PRINTS (PM_13_MSG; ‘Print out summary message 

PRINTB (CRLF); ‘Print another formating <crlf> 
PRINTB (ONE_MSG, PMSHEADER); 'Print out the chip location header 


i Index through the summary table and print out its 
' contents to the console terminal for operator review. 
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L- a 
; a incr index from 0 to .PM_COUNT - 1 do | 
Me n 
: P 2279 PRINTB (FMT16, ‘This is the printing form ; 
: P -PM_LOG C.index, UNIT$_PMJ, 'Print the failing unit of this sbe 
: P 2281 -PM_LOG L.index, BRD$_PMJ, iPrint the failing rd number | 
: Pp -PM_LOG L.index, BNKS ° ‘Print the failing bank number 
; Pp -PM_LOG C.index, BITS ‘Print the failing bit number 
; “PM-LOG C.index. SUMS_PMJ); iprint the total rous/cot blasted 
; 85 end; 
: HG end 
; 2 hes else 
: 2 bea 
; $555 PRINTB (CRLF); ‘Print a formating <crif> 
s 1 PRINTB (ONE MSG. By |__HEADER) ; ‘Print the header message 
: $538 PRINTB (PM_TO ‘Print out summary message 
: PRINTB (PMT1 1 -HSG): ‘Print out summary message 
; PRINTB (PM_12_MSG); ‘Print out summary eee ol 
: PRINTB On. 13_MSG); 'Print out summary message 
3 296 PRINTB (CRLF): 'Print another formating <erlf> 
; 2297 PRINTB (ONE _MSG, PM_14_MSG); 
; 2298 end; 
$ 2299 
$ 2300 end; 
-SBTTL SUMMARY ROUTINE DECLARATIONS 
004167 0000006 $3 
R1 oSSAvES ; 2225 
005767 000000' PM. COUNT ; 2261 
003546 
012746 002622" #CRLF =~ (SP) ; 2264 
012746 1 #1,-(SP) 
01 SP_RO s #2 
104414 
012716 000170° #PM. HEADER, (SP) ; 2265 
12746 002556" #ONE .MSG,~(SP) 
12746 000002 #2,~ (SP) 
1 SP ..RO ; SP,* 
104414 14 
12716 goose" #PM.10.MSG, (SP) ; 2266 
12746 1 #1 ,~-(SP) 
1 SP RO : SP,* 
104414 14 
012716 000434° #PM.11.MSG, (SP) ; 2267 
127 000001 #1,-(SP) 
1 SP RO ; SP,* 
012716 000544" #PM.12."SG. (SP) 2268 
13746 900001 Ha (8P) 


AT SSS». se sts 2 — 
taeeeeeetneeenttiaeeeemenenteeiememetemeieimee cemeteries 
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900700 
000706 
000 
00071 
000 


000 
000 
000732 


000714 
pa 
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000774 


sessesessssssssss 
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eseeeeseeasecs=e 
as 
& 
> 


=sh 
3 
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Se 


ROUTINE DECLARATIONS 


1 
002622" 
000001 


000104° 


Sines 


000000" 


000002" 


177600 


177774 


177760 


177770 


000016 


18: 





SP ,RO 


18 


°F 
-Mar-19 
-Mar-19 


#PM.13.MSG, (SP) 
#1,-(SP) 


e 


ACRLF , (SP) 
#1,-(SP) 


#PMSHEADER, (SP) 
#ONE .MSG,-(SP) 
#2,-(SP) 


* aaa 


2 
R2,R1 
R1 
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R1 
PM.LOG+2(R1) ,~(SP) 


(R1),R 
R 


RO 
#177760 
RO,-(SP 
(R1) RO 
RO 


RO 
RO 


~(SP5 
(Ri) ,=( 
#177776 
(R1),RO 


j 


td 


SP) 
o (SP) 


RO 


RO 

#177770 RO 
RO,-(SP) 
#FT16,-(SP) 


#16,SP 
R2 


#6,~(SP) 
0 


ta ree 
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3; SP,* | 

; 2269 | 

3; SP,* 

3 2270 

; SP,* 

; 2271 

; SP,* 

3 2277 

3 INDEX 

3: INDEX,* 2284 
{ 

: SP,*« 

$ 2278 

: INDEX 2277 
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REV B PATCH 00 ROUTINE DECLARATIONS Hy aad 18:06:23 PA: <NEALE>PMSKL4.8L1.1 (10) sc2°6081" 
111 2s: CMP sé RB : INDEX,* | 
ettiS $3 BLT H : 
OOIITé 012746 002622" 3$ Sty ERLE .<(SP) : 336) 
oot 2 a 7 Hits MOV Pine 
11 1 MOV ° 3 SP,* 
0011 104414 TRAP 
0011 012716 000170' MOV #PM. HEADER, (SP) : 2291 
0011 012746 092556° MOV #ONE .MSG,~-(SP) 
00114 4. 746 2 MOV #2,-(SP) 
001146 01 MOV SP RO 3: SP,* 
o91 128 104414 TRAP 
11 012716 000324° MOV #PM.10.MSG, (SP) : 2292 
001156 012746 000001 MOV #1,-(SP) 
001762 01 MOV R : SP,* 
001164 104414 TRAP 
oo 188 012716 000434° MOV #PM.11.MSG, (SP) $ 2293 
ore 012746 000001 MOV #1,-(SP) 
1176 01 MOV ‘ 3; SP,* 
001 104414 TRAP 
001 012716 000544' MOV #PM.12.MSG, (SP) : 2294 
001 012746 000001 MOV #1,-(SP) 
001212 010600 MOV J 3: SP,* 
001214 104414 TRAP 
001216 012716 000656' MOV #PM.13.MSG, (SP) : 2295 
001222 pierae 000001 MOV #1,-(SP) 
001226 010600 MOV oR : SP,* 
001 104414 TRAP 14 
001 012716 002622' MOV #CRLF , (SP) : 2296 
001 o1g7h8 000001 MOV #1,-(SP) 
id 44 106614 TRAP 
124 12716 000244' MOV #PM.14.MSG. (SP) : 2297 
00125 12746 002556' MOV -MSG,~( 
001 28 12746 000002 MOV #2,-(SP) 
001586 be3706 000026 4$ a 136 SP 2226 
1399 000207 KTS C : 2225 
; Routine Size: 162 words. : 
: Maximum stack depth per invocation: 22 words 
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ROUTINE DECLARATIONS 
routine GEN_RANDOM_DATA : novalue = 
begin 

oe 

' Functional Description: 
This glob 

of random data. 

inked at Link time. 

i Formal Parameters: 

none 


Implicit Inputs: 
ee BUFF 


Implicit Outputs: 
: ” WBUF F 's full up with random data 


i Completion codes: 
! none 


Side Effects: 
none 


local 

OFFSET; 
WRT_BUF + Z0°O0° = .SEED1; 
WRT_BUF + Zo'2° = .SEED2; 
WRT_BUF + %0°4° = .SEEDS; 


OFFSET = %0'6': 
VER CZMLCB CHANGED 128 TO 256 


{ 
: Fill the write buffer up with random data 


incr WRD_CNT from 4 to ‘256 + 511*2) do 
N 0; 
WRT BUF + .OFFSET = .RANDAT: 
OFFSET = .OFFSET + 2: 
end; 


end; 


18-Mar-1985 19:06:61 


E 7 
TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BL1.1 (11) 


al routine will generate a write buffer 
The global routine to actually 
erate the random number is a global routine 


‘Offset variable into write buffer 
‘Initial seed! to write buffer + 0 
‘Initial s to write buffer + 2 


‘Initial s to write buffer + 4 
‘Adjust offset by 6 


‘Load 768 words with random data 
‘Generate the random number 


‘Write buffer + offset gets the random number 
‘Bump the offset by 2 


~SBTTL GEN.RANDOM.DATA ROUTINE DECLARATIONS 


Page 4/7 
SEQ 0082 


——— een ees 


ee Ore | 


BSKEL4 
REV B PATCH 00 
001274 004167 


1 16767 
Bia 16767 


1 2 Ot 767 


: Routine Size: 


ROUTINE DECLARATIONS 





28 words 
: Maximum stack Gaek per invocation: 


GEN.RANDOM.DATA: 
SR 


1$: JSR 


3 words 


7 
1grharnt943 16:07 


VRBVRwww 


Ne ego 


:57 
241 


TOPS-20 Bliss-1 vetete) 
PA:<NEALE>PMSKL4.BLI.1 (11) 


* ,OF FSET 
* ,WRD.CNT 


BSKELS 


REV B PATCH 00 ROUTINE DECLARATIONS 
routine DM_RD_TRANSFER (SIZE, DST, SRC) : novalue = 
begin 


'o¢ 


CLR 





001364 010146 
1 016046 040374" 
000010 


O1601 
132901 000040 
1 0374° 
410 0101 10 
414 016700 040374" 


Be de eictaet 


BUS; 
DAT_DM ( 


WRT-RH (MLBA 6, .D 
WRT RH (MLCS1, FONC, FUNC_ AF 


me le 


18-Mar-19 


Pa Description: 


global routine will perfrom a diagnostic 
e read transfer at the designated 


buf fer and sector addresses. 
i Formal Parameters: 
SIZE: 


Specifies the size of the transfer 


Write buffer address where data is 
coming from or going to. 


Mi-11 desired sector address where data 
is coming from or going to. 


BUFFER: 


SECTOR: 


| InpL eit Inputs: 
none 

| Implicit Outputs: 
none 

t Completion codes: 
none 


i Side Effects: 
none 


‘Clear the mass bus 
‘Enable data diag mode 


ENABE): 
WRT_RH (MLCS2, "DRV_SEL, .ML_DUT); ‘Select the divice under test 
WRT_RH (MLWC, WC_REG, .SIZE): ‘Load the transfer size 
WRT _RN (MLDA, DA_REG, “SRC ‘Load the transfer source address 


‘Load the transfer destination address 
‘Load a read function with go set 


TL DM.RD.TRANSFER ROUTINE DECLARATIONS 
R1,-(SP) 


. SBT 
DM.RD. TRANSFER: 
MOV 








—- ee ee ee ee ee 


1g-har=1982 19:97 TOPS=20 Bliss-16 V2(212) Page 
PA:<NEALE>PMSKL4.BL1.1 (12) SEQ 0084 


ee Oe 


me ne ee ee a ee ee ee ee eee —— 
ee ne ene ee ee ees 
re ee ete 


BSKEL 
REV B PATCH 00 
0014 See 
Bi ae 
Sie 8 

14 142701 
001442 0 1 
Bis 8 
901454 16 
001460 016046 
001464 011601 
ss 152701 
0014 gig 
00147 ot 160 
001 16700 
epee 016046 
00151 Be 900 
001514 016700 
SIs sou 
001532 016700 
001 273 010160 
001542 016700 
pteeS 016046 
001552 016601 
001556 016700 
001562 010160 
001566 016700 
001572 016046 
001576 016601 
001602 016700 
001606 010160 
001612 016700 
001616 016046 
Cotes? 016601 
001626 016700 
001632 010160 
001636 017746 
001642 O12 
001644 142 
001650 152700 
001654 010077 
001660 706 
001664 oie 
001666 207 


: Maximum stack 


ROUTINE DECLARATIONS 
000010 


ety 
00000 


040374" 
at's th 
040374" 
000024 

10 
040 . , 
040374' 
000010 
040400° 
177770 
000007 
040374° 

10 
040374° 
000002 
000022 
040374° 
040374" 
000020 
040374" 
040374" 
000024 
040374" 
0403574° 


000077 


000051 
040374° 
000016 


98 word 


s 
depth per invocation: 10 words 








eee + 
— 


H 7 
1 “Horn 138s 16:07:57 
18-Mar-1982 15:44:41 


10(RO) ,.=(SP) 
SP) Ri 


ML. ; 
24 (RO) ,-(SP) 
(SP) Ri 


10(RO) ,=(SP) 
) Ri 





TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (12) 


: *,ML.REG 

: ML.REG,MLREG 

3: *,MALREG 

: *,MLREG 

MLREG, * 

«ML .REG 

ML. REG, MLREG 
MLREG 


*, 


MLREG,* 


* ,ML.REG 
ML .REG MLREG 


* ,MLREG 
* ,MLREG 


; MLREG,* 


* ,AL.REG 
SIZE .MLREG 


MLREG,* 


* ,ML.REG 
SRC ,MLREG 


MLREG,* 


* MAL .REG 
DST .MLREG 


MLREG,* 

* ML .REG 

ML .REG, MLREG 
* ,MLREG 

* ,MALREG 
MLREG,* 








2384 


: 


2351 


: 


ee 
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18-Mar-1982 16:07: TOPS-20 Bliss-16 vetel2! 
ROUTINE DECLARATIONS ches 14 15:44: PAs <NEAL E>PASKLS. BLI.1 (13) 
routine DM_WRT_TRANSFER (SIZE, DST, SRC) : novalue = 
begin 
ie+ 
' Functional Description: 
This global routine will perform a diagnostic 
mode write transfer at the designated 
: buffer and sector addresses. 
Formal Parameters: 
; Size of the transfer 
BUFFER: 
Write buffer address ere data is 
coming from or going t 
; SECTOR: 
ML-11 desired sector eserese where data 
is coming from or going t 
: bapa tae sana 
i 
pte ts § Outputs: 
i 
' Completion codes: 
none 
i 
' Side Effects: 
none 
1 
CLR_MBUS ‘Clear the mass 
DAT_DM (ENABE): ‘Enable data diag 
WRT_RH (MLCS2, DRV_ SEL. .ML_DUT); ‘Select the divice under test 
WRT_RH (MLWC, WC_REG, .SIZE); ‘Load the transfer size 
WRT_RH (MLDA, DA_REG, DST): ‘Load the destination address 
WRT_RH BA_REG, ‘Load the source address 
i a (MLCSi, FONC, FUNC.53; ‘Load a write function with go set 
ad s 
~SBTTL  DM.WRT. TRANSFER ROUTINE DECLARATIONS 
DM. WRT. TRANSFER: 
MOV R1,-(SP) : 
040374" MOV ML .ADDR RO ; 
000010 MOV 10(RO) ,=(SP) : *,ML.REG 
vs (SP) , RI ; ML.REG,MLREG 
000040 BISB = #40,R1 : *,MLREG 
0403574" MOV ML .ADDR RO 
000010 MoV = RT, 10 RO) ; MLREG,* 
040374" MOV ML; ADDR ,RO 





ee Oe 2 


eee ————— =~ -_—~ -- ~~ + ee + SA t-te = 
— —--— ~.- eee ee we ee eee —— — 


rm eee 


BSKEL4 
REV B PATCH 00 


001724 
001 


S8ss5 
ae 


O— $QOooooococoocooooooO 
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; Routine Size: 
; Maximum stack 


RS 
Sa338 


woo N— 
3 33 
cade ereat wed 


esossssssssss3esz 


sss 
Soeeuue 
Ssescs 


SSesansescrs 


oo 
33 


~ 
SseNssss 


ROUTINE 


000010 
177770 
000007 
040374" 
10 
040374" 
000024 


040400" 
177770 
000007 
040374" 
040374' 
000002 
000022 
040374" 
040374° 
000022 
0403574" 
000006 
040374" 
000004 
ooeese 
040374° 
040374" 


000077 
000061 
040374" 
000016 


98 word 
depth pe 


DECLARATIONS 


s 
r invocation: 10 words 


J 7 
\e-mer= 13 
18-Mar-19 


10(RO) .-(SP) 
(SP) RI 
#177776 RO 
#7,R1 

RO,R1 

ML. ADDR, RO 
R1,10(RO) 
ML. ADDR, RO 
24 (RO) ,-(SP) 
(SP) Ri 
#10,R1 
ML.ADDR,RO 
R1,24(RO) 
ML. ADDR,RO 
10(RO) ,-(SP) 
(SP) RI 
W177776 RO 
#7,R1 


89 18:46:41 


ea ee ee 


TOPS-20 Bliss-16 V2(2 
PA: <NEALE>PMSKL4 .BL 


* ,ML.REG 
ML.REG,MLREG 


3; *,MLREG 
: *,MLREG 


MLREG,* 


* ,ML.REG 
ML .REG MLREG 
* ,MLREG 


MLREG,* 


; *,ML.REG 
; ML.REG,MLREG 


* -MLREG 
* ,MLREG 


MLREG,* 


* ,ML.REG 
SIZE ,MLREG 


MLREG ,* 


* ,ML.REG 
DST .MLREG 


> MLREG,* 


@e Se 


¥.° 
My 
z 
2) 






* ,MLREG 
MLREG,* 


52 
070087 


—+<— «_<« 


— 


2626 


2425 


2426 


2427 


2428 


2429 


2391 


BSKEL4 
REV B PATCH 00 


ROUTINE DECLARATIONS 


Se 


18-Mar-19 TOPS-20 Bliss-16 V2(212) 
1gcfar=1982 18324 PA: <NEALE>PMSKL4.8L1.1 (14) 


routine SAAB LO (TEMP_ARRSBNK_SEL) : novalue = 
gin 


"Funct fonal Description: 
This 


global routine will load via diagnostic mode 
random data to the designated array and bank 
selected by arr$bnk_sel. 


i Formal Parameters: 
ARR 


“This Ho we stores the array and 
bank select address. 


| Impt ei In 


WRT _BUF SRET_ STATUS 


I Areas “ 
™ BUF is filled with random data 
| Completion codes: 


i Side Effects: 


none 
~_ 5 BUF eer. ‘Start buff wad int 
ar er ex nter 
BUF _ INDEX ‘Buffer index point cor. 
GEN_RANDOM -“ BIE ‘Generate a write buffer with random dat 
S BUF_INDEX = ‘the first sector starts at write buf sae zero 
BUF_INDEX = .S TBUF: INDEX: ‘Buf index will get. 128 random data words 
DM_ ORT TRANSFER (SIZE = -256, DST = .TEMP_ ARRSBNK_SEL, SRC = = WRT_BUF); 
'+ 
' Increment as all sectors and load them 
: with random data 
ner from 0 to .BNK_NUM_SEC do ‘Load all sectors in bank with random data 
n 


incr WRD_ CNT from 0 to 127 do ‘toad all words in sector with random data 
«BUF _INDEX, ‘Load data reg 1 


-Ri aS DB1_REG, .WRT_BUF f- wo 1): 
WRT_RH mes" Be REG, .WRT_BUF [.BUF_INDEX, un ); !'Load data reg 
WRT_RH (MLE REG, .WRT_BuF C.BUF Die _s ‘Load data re 
ih, data into the mi-11 long word 


DAT~CLK 
BUF~ “INDEX = -BUF_INDEX + ONE; is ay next random dete word 





Ba 53 
Ss 0°0 


BSKELS 
REV 8 PATCH 00 ROUTINE DECLARATIONS 


483 


end; 
S_BUF INDEX = .§ BUF spe + 2; 
BOF_INDEX = .S_BOF_INDEX 
end; 
CLR_MBUS; 
end; 
0000006 ee 4 
000020 SUB 
177064 JSR 
CLR 
CLR 
177400 MOV 
0426' MOV 
0 MOV 
0430" MOV 
002234' MOV 
40432" MOV 
177420 JSR 
040416° 000010 MOV 
CLR 
BR 
1$: T 
CLR 
040374'° 2$: MOV 
000036 000024 MOV 
MOV 
ASL 
002234' MOV 
ADD 
MOV 
040374" MOV 
000036 MOV 
040374' MOV 
000040 000022 ed 
040374" MOV 
MOV 
040374" MOV 
000034 000020 MOV 
MOV 
040374° MOV 
MOV 
040374° MOV 
000024 000016 MOV 
000016 MOV 
000020 BISB 


cher“ 2 


‘Start the next sector 2 word dee 
‘Buf index will get 128 more random data words 


TOPS=20 Bliss-16 


v2(212 
PA:<NEALE>PMSKL4.BLI. 


‘Clear the single step dma mode 


~SBTTL DM.RAND.LOAD ROUTINE DECLARATIONS 


R1,$SAVE5 : 
#20,SP 
PC. GEN.RANDOM.DATA : 
° §.BUF.INDEX 
4 : BUF. INDEX 
-400,-(SP) : 
(SP) SIZE 
40(SP) ,-(SP) : TEMP. ARRSBNK.SE,* 
(SP) ,DST 
HURT. BUF ,-(SP) 
(SP), SRC 
Be. DM.WRT. TRANSFER 
BNK.NUM. SEC, 10(SP) : 
. : SEC.CNT 
6 : WRD.CNT 
“ML. ° 
36( { Ree sp) : *,ML.REG 
RS e BUF . INDEX,* 
#URT BUF .R1 
R3.R1 
(Ri) .R2 : *,MLREG 
Mi, ADDR R3 
R2,36(RS : MLREG,* 
Me AROR R3 : 
40(R3) 22 (SP) : *,ML.REG 
(R1) R2 : * MLREG 
Mi, ADDR R3 
R2.40(RS) , : MLREG,* 
HATES: 50(SP) : *,ML.REG 
(R1) .R2 : * MLREG 
Mi, ADDR R3 
R2,34(R3) : MLREG,* 
ML ADDR R3 
24(R3), 16(SP) : *,ML.REG 
16(SP) -Re ; ML -REG.MLREG 
#20,R2 : * MLREG 


12) 
1 (14) 


Pg 54 
SEO 0089 


2479 


2480 


EE 


BSKEL4 i-Sar2108 16: 07:5 TOPS-20 Bliss-1 v2(212) Page 55 
REV B PATCH 00 ROUTINE DECLARATIONS 18-Mar-1982 1 PA: <NEALE>PMSKL4.BL1.1 (14) SEQ 0090 
002420 040374" ADDR, R3 
424 000024 24(R3) : MLREG,* 
4 + BUF. INDEX 2482 
4 : WRD.CNT 2476 
434 000177 * WRD.CNT,* 
002442 000002 : *,$.BUF . INDEX 2485 
* §.BUF. INDEX, BUF . INDEX 2486 
000006 6(§P) : SEC. CNT 2472 
000006 000010 3$: MP 6(SP) ,10(SP) * SEC.CNT,* 
0374" R3 : 2487 
10 000014 14(SP) + *,ML.REG 
000014 R2 : ML.REG,MLREG 
539s ping 
0374" DR,R3 
10 $) : MLREG,* 
thie R3 
900019 000012 12(SP) : *,ML.REG 
12 )R * ML.REG,MLREG 
040400" R 
177770 76,R5 
000007 « ,MLREG 
: *,MLREG 
040374" R3 
000010 $) : MLREG,* 
000026 $ 2431 





: Routine Size: 126 wo 
: Max imum stack denth 6 Ss " taveratten: 17 words 


ee re eee — 


i ee _ — 


18-Mar-19 TOPS-20 Bliss-1 ve(2le) P 56 
gchar 1942 18326 PA: <NEALE>PMSKL4.BLI1/ (15) sea’0091 





BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 

491 rout ine DM_1_0_LOAD (TEMP_ARRSBNK_SEL, DATA) : novalue = 
gin 





; 49 

: 49 

: 494 !++ 

s 495 | Functional Description 

; 49 | This global rout ine will load via scogpostte mode 

- 497 | ones or ZEROS ** the contents of dat 

; rh the designated array and bank selected by arr$bnk_sel. 

; iy) i Formal Parameters: 

3 401! ARRSBNK_SEL: 

: 502! “This argument stores the array and bank 

: 503! select address. 

; Seo i DATA 

3 505! This argument contains the selected data pattern 

: S209 i to be written into the array and bank selected by 

s 3508 | array bank select. 

: 25 i Implicit Inputs: 

: S219 | WRT_BUF, RET_STATUS 

; S12 i 1 Licit Out 

; 2318 = 1 BUF is: filled with ones or zeros 

5 514 | ete 

; 2515! 

; $218 1 Completion codes: 

s 51 i none 

; 518 

: 519 | Side ecrectss 

3 $259 

25) “ 

; se ‘Single step dma write mode 
; $25¢ et are (SIZE = -256, DST = .TEMP_ARR SEL, SRC = WRT_BUF); 
: 358 ' Load the diagnostic registers 2, with the 

: 527 ' data contained in the argument ‘data’. Data 

3 358 will either be all ones or all zercs. 

; 5 WRT_RH (MLD1, DB1_REG, .DATA): ‘Load data reg 1 with data 
; 531 WRT_RH (MLD2. DB2-REG, .DATA): ‘Load data reg 2 with data 
: ; é WRT_RH (MLE2, E2_REG, DATA): ‘Load data reg 3 with data 
: 5 1+ 

3 535 ' Load this banks sector into the @ 

: 5 i the Gate just ralign F Beer tc 

3 5 : att sters. ins Gane Lt setert . 

3 5 i ot ~ sectors mp this bank while 

: ; i r loop will load the data into 

; a9 i ue bo ores within the sector. 

: 542 
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ROUTINE DECLARATIONS 
incr SEC_CNT from 0 to .BNK_NUM_SEC do ‘Load all sectors in bank with data 


incr WRD_CNT from 0 to 127 do 
DAT : 


! 
! VER CZMLCB changed 127 to 255 


incr WRD_CNT from 0 to (255 + 
WRT_BuF C.WRD_CNT, WRDJ = 


CLR_MBUS; 
end; 


000020 


000016 


000014 


~“ Se “nw 
GSSSSSSSSSSSSSSS5SSSSSEns 





8 8 
18-Mar-1982 16:07:57 TOPS-20 Bliss-16 V2(212) 
1 mp | 19:44:41 PA: <NEALE>PMSKL4.8L1.171 (15) 


‘Load all words in sector with data 
'Clock the data into the ml-11 


FILL the write buffer up with the same 
data pattern that was just transfered 
to the unit under test. 


This will later be used as compare data 
when this sector number is read back. 


11*2) do ‘FILL the write buffer up with data 


‘Clear the single step dma mode 


-SBTTL DM.1.0.LOAD ROUTINE DECLARATIONS 


R1,$SAVE5 ; 
wit SP 
#-400,-(SP) : 
(SP), SIZE 
36 (SP) ,-(SP) : TEMP. ARRSBNK.SE.* 
(SP) ,DST 
#URT .BUF ,~(SP) 
(SP), SRC 
PC,.DM.WRT. TRANSFER 

-ADDR,R1 ; 
ret fel ‘o-. 
R5,RO : * MLREG 
mi -ADDR R1 

*36(R1) : MLREG,* 
Mi ADDR RI : 
40(R1) fecsp) > *,ML.REG 
RO cri) : MLREG,* 
ML .ADDR,R1 ; 
34(R1), 14(SP) : ®,ML.REG 
Ai ADDR R1 

~34(R1) : MLREG,* 
BNK.NUM. SEC .R4 : 
R3 : SEC.CNT 


Page 57 
SEQ 0092 


A ~— - 


2530 


2531 
2532 


2543 





BSKEL4 
REV B PATCH 00 


; Routine Size: 
: Maximum stack 


ROUTINE DECLARATIONS 


040374° 
24 
Cones 
040374" 
000024 


000177 


000012 


000010 


000006 


116 word 


S 
depth per invocation: 


3$: 


4$: 


15 words 


igors1363 16 


RO 

RO,R1 

sent ar At 
a esr? 


ML.ADDR,R1 
(R1), 1O¢sp) 


a ee ee 





eee ee 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (15) 


WRD.CNT 


WRD. CNT, * 


: SEC.CNT 


SEC.CNT,* 


: WRD.CNT 
3: WRD.CNT,* 


WRD.CNT 
WRD.CNT,* 

* ,ML.REG 
ML.REG,MLREG 
* ,MLREG 
MLREG,* 


* ,AL.REG 
ML .REG,MLREG 


: *,MLREG 
: *,MLREG 


MLREG,* 


Se - = 


Page 58 
SEQ 0093 


2545 


| 
| 
| 
| 
| 
| 
| 


BSKEL4 
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D 8 SS =i 
18-Mar-1982 16:07:57 TOPS=-20 Bliss-16 V2(212) 
aa + 18:90:23 PA: <NEALE>PMSKL4.8L1.1 (16) 


CRTs ST LOR ASPEN (SIZE, DST, SRC) : novalue = 
egin 


oe 


++ 
' Functional Description: 

This global routine will perform a write check transfer 
at the designated buffer and sector address. 


PUetON Cepeneners: 
"  §tores the size of the transfer 


SNS 
BVA S INI OOo 


BUFFER: 
Write buffer address where data is 
79 coming from or going to. 
80 SECTOR: | 
81 ML-11 desired sector address where data 
Sg is coming from or going to. 
Implicit Inputs: 
none 
Implicit Outputs: 
none 


VIMVMIMMVIMIMM AMI AAMIAMAMAMA AVI 


6:93 86500060 


Completion codes: 
none 


593 


MMININININNNINNNINININNNINNNINININNNPPenorong 


Side Effects: 
none 


'Clear the mass bus 


CLR_MBUS; ! 
2598 ECC_DIS (ENABE) ‘Disable error correction 


2599 WRT_RH (MLCS2, DRV_SEL, .ML_DUT); ‘Select the divice under test 

2600 WRT_RH (MLWC, WC_REG, .SIZE); ‘Load the transfer size 

2601 WRT_RH (MLDA, DA_REG, .DST); ‘Load the destination address 

2602 WRT_RH (MLBA, BA_REG, .SRC); ‘Load the source address 

603 WRT-RH (MLCS1, FONC, FUNC_4); iLoad a write check function with go set 
2605 if .ML_ADDR CMLCS1, SCJ ‘Does the transfer cause a sc error 
2606 then 

= 

2609 if not .ML_ADDR CMLCS2, WCE] ‘We expect the write check bit to be set 
2610 then 

2611 begin 

2612 ERRSF (ERR_13, UNX_DRV_ERR_MSG, DUMPER); ‘Report the unexpected error 
2613 PRINTB (ONE_MSG, WT_CHR_XFER_MSG); ‘Print what transfer caused the error 
2614 DODU (.LSUNTT); iDrop this unit 

2615 DOCLN; ‘Jump to the clean up code 

if = 
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: $$) end; 
s 36 , do 0 ‘Delay for transfer to complete 
: 26 g until .ML_ADDR CMLDS, DRY); 
; $e : Hd -ML_ADDR CMLCS1, SCJ Did the transfer cause a sc error 
e en 
: sess begin | 
: 26 8 ifn not .ML_ADDR CMLCS2, WCE] ‘We expect the write check bit to be set | 
: 26 | 
; 2631 ERASE (ERR 13. UNX_DRV_ERR_MSG, DUMPER) unexpected error 
: 2632 PRINT ONE MSG. WT_CHR_XFER_MSG) ; Print winich function caused the orrer | 
: 2633 DODU Rear Drop this un | 
: 2634 DOCLN; job to the «am up code | 
: 2635 end: 
: 2636 
; 2637 end; 
: 2638 
; 2639 end; 
.SBTTL WRT.CHK.TRANSFE ROUTINE DECLARATIONS 
003140 010146 WRT. CHK. TRANSFE: 
MOV R1.-(SP) : 2566 
003142 SUB 93,8? 
003146 040374" MOV ADDR, RO ; 2567 
003152 016066 000010 000030 MOV 10(RO) , 30(SP) : *,ML.REG 
003160 000030 MOV (SP) RI : ML.REG.MLREG | 
00 000040 BI1SB #40,.R1 > *,MLREG 
00 040374" MOV mi RO | 
00 000010 MOV R AD ROD : MLREG,* | 
3200 040374" MOV Mi - ADDR RO 
00 000010 000026 MOV = 10(RO) .06 (SP) ; *,ML.REG | 
00 000026 MOV 26(SP) RI : ML.REG,MLREG . 
00 040400" MOV AL bur RO | 
00 177770 BIC #177770,RO | 
? BICB 4 s«#7, 1 : *,MLREG | 
00 BIS RO,R1 > *,MLREG 
00 040374" MOV ML .ADDR RO 
00 000010 MoV —s- R71. 10(RO) ; MLREG,* | 
040374" MOV ML -ADDR RO : 2598 | 
000024 000024 MOV g (RO) ,24 (SP) : &,ML.REG 
0000 MOV 4(SP).R1 > ML.REG.MLREG 
BISB #2,R1 : *, MLREG 
040374" MO ML. ADDR .RO | 
00 MoV =—-R7,24(RO) ; MLREG,* | 
0374" MOV “ADDR, RO ; 2599 | 
00 10 000022 MOV 10(RO) ,22(SP) > *,ML.REG | 
00 MOV 22(SP).R1 > ML.REG.MLREG | 
| 
| 
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: Routine Size: 181 words 
: Maximum stack enth 6 per invocation: 
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17 words 
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UNX.DRV.ERR.MSG 

#WT. CHK. XFER.MSG,-(SP) 
(SP) 


#2,-(SP) 
SP/RO 





= oRO 


W6,SP, 
($33, RI 
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SP,* 
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rene 
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SEQ 0098 


: 640 routine WRI_TRANSFER (SIZE. DST, SRC) : novalue = 

: 641 begin 

; 64 

: 64 14 

: 644 | Functional Description: 

; 645 | This global routine will perform a write transfer 

; rth at the designated buffer and sector address. 

: 648 |! Formal Parameters: 

: 649 =! SIZE: 

: 650 ! Stores the size of the transfer 

$ 651 ! BUFFER: 

3 e2 urite buffer address wh mere data is 

3 ! coming from or going t 

3 654 =~! SECTOR: 

655 ! ML-11 desired sector address where data 

$ 628 is coming from or going to. 

: 2658 | Implicit Inputs: 

. 2659 =! none 

see0 Implicit Output 

; ! Implic puts: 

: 2662 =! none 

; 2663 ! , 

; 2664 | Completion codes: 

; 2665 ~! none 

3 2666 =! 

3 2667 ! Side Effects: 

; 2668 =! none 

: 2669 !-- 

$ 2679 

; 2671 CLR_MBUS; ‘Clear the mass bus 

s 2672 WRT_RH (MLCS2, DRV ., -ML_DUT); ‘Select the divice under test 

: 2673 WRT_RH (MLWC, WC_REG, .SIZE); ‘Load the transfer size 

: 2674 WRT_RH (MLDA, DA_REG, "BSD: ‘Load the destination entrees 

; 2675 WRT_RH “REG, . ‘Load the source addre 

: 2676 WRT-RH (MLCS1, FONC, FUNC.5); iLoad a write Rection ith go set 
; sors a -ML_ADDR CMLCS1, SCJ ‘Does the transfer cause a sc error 
: 2680 

s 2681 bear (ERR 13, UNX_DRY_ERR_MSG, DUMPER); ‘Report the unexpected error 
: 2682 PRINTB RSG. WRT_XFER_ASG); ‘Print which function caused the error 
: soe? DODU ¢. es ‘Drop this unit 

: 684 DOCLN; ‘jump to the i up code 

- Soa2 end; 

3 268 do p ‘Delay for transfer to complete 

; seep until .ML_ADDR CMLDS, DRYJ; 

; 691 if .ML_ADDR CMLCS1, SCJ 'Did the transfer cause a sc error 


ne wee ~e—e—- 


a ee i ee ———— = — _ 
~- —_~ _ 
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-Mar-19 17) SEQ 0099 
: 9 then 
, 69 begin ' 
: 694 ERRSF (ERR_13, UNX_DRV_ERR_MSG, DUMPER); ‘Report the unexpected error 
: 695 PRINTP (ONE_MSG, WAT_XFER_MSG); ‘Report yhich function caused the error 
: 696 DODU (.LSUNTT);: ‘Drop this unit 
: 697 DOUCLN; ‘Jump to the clean up code 
‘ 698 end; 
: 699 
: 2700 end; 
_SBITL WRT. TRANSFER ROUTINE DECLARATIONS 
003712 010146 WRT. TRANSFER: | 
MOV R1,-(SP) : 2640 | 

003714 162706 000024 SUB #24,SP | 
003720 016700 040374" MOV ADDR, RO ; 2641 
003724 016066 000010 000022 MOV 10(RO) ,22(SP) + #,ML.REG 
003732 016601 000022 MOV 22(SP),R1 * ML.REG.MLREG 

152701 000040 BIS8 4#40,R1 : *, MLREG 
003742 016700 040374" MOV ML. ADDR.RO 
003746 010160 000010 MOV R1,10(RO) : MLREG,* 
003752 016700 040374" MOV “ADDR, RO 
003756 016066 000010 000020 MOV 10(RO) ,20(SP) : *,ML.REG 
003764 016601 000020 MOV 20(SP).R1 + ML. REG, MLREG 

016700 ' MOV mi bur RO 
003774 042700 177770 BIC #177770,RO 

142701 7 BICB ss #7, R1 : *,MLREG 

50001 BIS RO,R1 > * MLREG 

016700 040374" MOV ML .ADDR,RO 
004012 010160 10 MOV R17, 10(RO) : MLREG,* 
004016 016700 040374" MOV Mi ADR RO : 2672 
004022 016066 000010 000016 MOV 10(RO) , 16(SP) : *,ML.REG 
004030 016601 000016 MOV 16(SP) .R1 > ML.REG,MLRES 
004034 016700 040400° MOV mL T-RO 
004040 042700 177770 BIC #177770,R0 

142701 7 BICB ss« #7 RV : *,MLREG 
004 050001 BIS RO.R1 : *,MLREG 
004052 016700 040374' MOV Mi -ADDR RO 
004056 010160 ss MOV R1,10(RO) : MLREG,* 
004062 016700 040374 MOV ML. ADDR RO : 2673 
004066 016066 000002 000014 MOV ¢ (RO) 14(SP) > *,ML.REG 
004074 016601 000034 MOV (SPS RI : SIZE.MLREG 
004100 016700 040374° MOV Mi. .ADDR RO 
004104 010160 000002 MOV R1,2(RO) : MLREG,* 
004110 916700 040374' MOV ML. ADDR RO : 2674 
004114 016066 000006 000012 MOV 6(RO) 13(SP) : *,ML.REG 
004122 016601 2 MOV 2(SP5 ,R1 : DST.MLREG 
004126 016700 040374" MOV ML . ADDR RO 
004152 910160 900006 MOV oR 6CROS : MLREG.* 
004136 016700 040374" MOV ML .ADDR,RO : 2675 
004142 016066 000004 000010 MOV 4(RO), 10(SP) : *,ML.REG 
004150 016601 000030 MOV 30(SP5,R1 : SRC,MLREG 
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routine RD_TRANSFER (SIZE, DST, SRC) : novalue = 
begin 

le¢ 

i Functional Description: 

This global routine performs a read transfer at the 
designated buffer and source addresses. 

Formal Parameters: 

SIZE: 

Stores the size of the transfer 


Write buffer address are data is 
coming from or going to. 


ML-11 desired sector address where data 
is coming from or going to. 


BUFFER: 


SECTOR: 


map rect | panes: 


i 

i 

i 

i 

i 

i 

i 

i 

' 

i 

i 

i 

: map ress ~taeoe 
i 

i 

i 

‘ 

' Completion codes: 
none 

i 
i 
i 
ie 


Side Effects: 
none 


CLR_MBUS; ‘Clear the mass bus 
ECC_DIS (ENABE); ‘Disable error correction 
WRT_RH (MLCS2, DRV_SEL, .ML_DUT); ‘Select the divice under test 
2 , WC_REG, .SIZE): ‘Load the transfer size 
WRT_RH (MLDA, DA_REG, .SRC): oad 

WRT_RH (MLBA, BA_REG, .DST) iLoad the Seettnat ian address 
WRT-RH (MLCS1, FONC, FUNC ‘6; itoad a read function with go set 


2 -ML_ADDR CMLCS1, SCJ ‘Does this function cause a sc error 











pease (ERR_13, UNX_DRV_ERR_MSG, DUMPER) ‘Report the unexpected error 
PRINTB (ONE MSG. RB_XFER_MSG) ; * iReport which function cause the error 
(. LSUNTT) iDrop this unit 
DOCLN; ‘jump to the a up code 
end; 
do ‘Delay for the trans‘er to complete 


0 
until .ML_ADDR CMLDS, DRYJ; 
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if .ML_ADDR CMLCS1, SCJ 
then 


end; 


PRRs (ERR_1 
PRINTB (ONE 
DODU (.LSUN 


end; 


000024 


000022 


000020 


000016 


000014 


3, UNX_DRV_ERR_MSG, DUMPER); 
MSG, RB_XFER_MSG) ; 
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'Did the transfer cause a sc error 


; 'Re 
‘Print which funct 


rt the unexpected error 
rs) 


‘Drop this unit 


‘jump to the clean up code 
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R1,-(SP) 


@ Pe Ge Ge Be 


n caused the error 


* ,ML.REG 
ML .REG MLREG 
* ,MLREG 


; MLREG,* 


* ,ML.REG 
ML .REG,MLREG 


; *,MLREG 
; *,MLREG 


MLREG,* 
* ,ML.REG 


; ML.REG.MLREG 
* ,MALREG 


MLREG,* 


* ,ML.REG 
ML .REG,.MLREG 


; *,MLREG 
; *,MLREG 


MLREG,* 


* ,.ML.REG 
SIZE .MLREG 


; MLREG,* 
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BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 

763 routine I_CHIP_TBL : novalue = 
begin 


— +2 ee 


764 

765 

re 

76 "Func tional pescriprt | 
768 Th a ch nie tae ta les stores hfs a apeted | 
ss he mos ram c ! 
ae =," at data errors within chen. | 
He: This routine when called will init | 
77 this table of all previous bad chip 

Ae. entries. 

77 Formal Parameters: 

77 none 


I ‘seas Inputs: 
mitch pat 


Implicit Outputs: 
The chip table is loaded with zeros. 


Completion codes: 
none 


sdgesasas ys 





ay 
788 Side Effects: | 
2789 none | 
2790 !-- | 
2791 | 
me 
79 i Loop thr all table locations 
794 i aa initia ize the Location to | 
795 i zero. : 
796 i. | 
2797 | 
2798 incr TBL_INDEX from 0 to 38 de ‘Initialize the bad chip table | 
5000 CHIP_TBL C.TBL_INDEX, ALLJ = ZEROES; ’ 
2801 end; | 
.SBTTL I.CKIP.TBL ROUTINE DECLARATIONS | 
005100 010146 1.CHIP.TBL: ) 
MOV R1,~(SP) : 2763 | 
51 5000 R ; TBL.INDEX 2798 
: 1 ; 1$: - Rl ; TBL.INDEX,* 2799 
eae 1 030230' CHIP. TBL(R1) 
114 ; TBL.INDEX 2798 | 
003138 000046 RO.446 ; TBL.INDEX,* | 
p02 154 12601 MOV (SP)+,R1 : 2763 


A A i tt tt 


A TT LN n-ne 
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ROUTINE DECLARATIONS 
routine I_TMP_BLST_TBL : novalue = 
begin 


'¢ 

i “Puncttenst Description: 

There are two tables which gt me 
information necessary for 

maintenance and they are the ‘blast “table 

and the ‘tempory blas* table’. 

The t enpory pt piaet — geile she SD * POW 

coh information 

it can be ok Tes the main tt orn 


This routine when called will clear this temp 
to all zeros. 


Formal Parameters: 
none 

Implicit I 

- TMP _ st TBL 

Implicit ee 

7 The emery blast table is Loaded 
with zeros 


Completion codes: 
none 


Side Effects: 
none 


* inde ex through the temporary blast 
' table and initialize its ications 
to all zeros. 


incr TBL_INDEX from 0 to 9 do ‘Initialize the temporary blast table 
TMP_BLST_TSL C.TBL_INDEX, FULL_WRDJ = ZEROES; 
end; 
.S8TTL I.TMP.BLST.TBL ROUTINE DECLARATIONS 
1. TMP.BLST.TBL: 
MOV R1,~(SP) 
CLR R > TBL. INDEX 
1$: MOV RO,R1 > TBL. INDEX,* 
ASL R1 
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: Routine Size: 12 word 
> Maximum stack depth rae invocation: 


2 words 
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(SP)+,R1 ; 
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routine I_COL_CNT_TBL : novalue = 
begin 





; tt: + 

$ 50 |! “Fumentenel poegs an tens 

: 51! The * so umn count table spores the number 

; 28 i of times a particular column number has 

r 37 : failed with any failing row number. 

; B55 | This routine when called will init this 

: S2 table to all zeros. 

; 858 ‘| Formal Parameters: 

859 none 

$ B60 : 

: 861 | Implicit Inputs: 

; rg, COL_CNT_TBL 

; 863! 

; 2864 ! inplicte b Oaautes 

; Spee umn count table is loaded with zeros 

; 2867 =! Completion codes: 

2868 =! none 

: 2869 =! 

; 2870 |! Side Effects: 

3 2871‘! none 

: 2872 j-- 

; 287 

; 2874 '+ 

; 2875 | Index thr all locations in the 

: 2876 i column count table and initialize 

- 2877 !' the locations to all zeros. 

— * 

; 2880 wand TBL_ INDEX toon F ‘- o 255 do ‘Initialize the column count table 

; 2881 OL_CNT_TeL C.T NDEX] = O° HEROES: 

; 2882 

$ 2883 end; 
-SBTTL J.COL.CNT.TBL ROUTINE DECLARATIONS 

005160 005000 1.COL.CNT.TBL: 
CLR } ; TAL. INDEX 

3166 103 001002° 1$: CLRB COL.CNT.TBL(RO) : =(TBL. INDEX) 
INC ; TBL.INDEX 
000377 CMP RO,4377 ; TBL.INDEX,* 
170 BLE 1$ 
005176 207 RTS PC ; 
: Routine Size: 8 words 


: Maximum stack depth per invocation: 0 words 


Wgoharst9Hs 16:07:87 JOPSeaR Busse 


Page 


74 
SEQ 0109 


-_ 
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REV B PATCH 00 


eee SeeeeeBesesaseseses 


Nm 
owen 


VYVBVyyyyy 


3 


005200 010146 


reehervon2 19:97 
ROUTINE DECLARATIONS 18-Mar-1982 15:4 
routine I_REM_TBL : novalue = 

begin 


+4 


single cell failing rows and columns 
addresses within a failing MOS chip 
that has not yet been blasted. 


The copied remainder table is a 

the remainder table and is used in Peternining 

row addresses for blasting. The remainder table 

is used in determing column addresses for blasting. 


This routine when called will init these 
tables to all zeros. 


Formal Parameters: 
e 


Implicit . ts: 
REM_TBL, COPIED_REM_TBL 


Implicit IE ae 
remainder table and the copied 
Sie tables are loaded with zeros. 


Completion codes: 
none 


Side Effects: 
none 


" palin thr the remainder table 
' and the copied remainder table and 
i i initial ize thier locations to zeros. 


en ee ee —— 
a ——— ——— ao 


TOPS-20 Bliss=-16 V2(212) 


Page 75 
PA:<NEALE>PMSKL4.BL1.1 (22) SEQ 0110 


incr TBL_INDEX from 0 to 99 do ‘Initialize the remainder and copied rem table 


REM TBL_[.TBL_INDEX, RO_CLI = = ZEROES: 
cOPTED_REA_ TEC C.TBL_INBEX, = ZEROES; 
e 


end; 


-SBTTL I.REM.TBL ROUTINE DECLARATIONS 


1.REM.TBL: 


a me 





en —  ——__ 


BSKEL4 char? 1 
REV B PATCH 09 ROUTINE DECLARATIONS -Mar-1982 1 


MOV R1,-(SP) 
00? 2 005000 CLR 
10001 18: MOV RO,R1 
nie 1 ASL R1 
1 1 got30 CLR REM. TBL(R 
005214 005061 1712° CLR COPIED. NER. TBL(R1) 
Op? 005 INC 
2 3 000143 CMP RO,4143 
$08 5 01 St 4 tgp)e R1 
005 BooS0y RTS PC 


: Routine Size: words 
: Maximum stack PA per invocation: 2 words 


TOPS-20 Bliss-1 vet2i2) 


PA:< 


ALE>PMSKL4.8L1.1 (22) 


TBL . INDEX 
TBL. INDEX,* 


TBL. INDEX 


* TBL.INDEX,* 


Pa 76 
SEQ°0111 
geet 


25 
927 


2928 
2925 


2884 


B 
REV B PATCH 00 


Owoe VFWN OO wu 


BIISS 


: 


REPRESS SSIS 


005234 005000 
005236 105060 


thar? 1:07 TOPS-20 Bliss-16 vee) 2) 
ROUTINE DECLARATIONS -Mar-19 PA: <NEALE>PMSKL4.8L1.1 (23) 


routine I_COL_PTR : novalue = 
begin 


'o+ 
tek Description: 
The column pointer table points to locations 
in the column count table which have —_ 


incremented during the present row af 
Soeareines to be-al all a gee (greater 






searched af i ots ae than 1 
error map. his row 


into t temp 
am failing columns in the column count 
be dec 


This routine when called will clear this column 
pointer count table to zero. 


Formal Parameters: 
none 


me OL PTR 


inpi eft 5 Rate: 
umn ‘pointer table is loaded 
“tte zeros. 


Completion codes: 
none 


Side Effects: 
none 


1+ 

' Index throw f 
! table and init 
to zero. 


men geteter 
23 — ocations 


incr TBL_INDEX from 0 to 9 Coane ‘Initialize the column pointer table 


COL_PTR C.TBL_INDEX] = S; 
end; 
.SBTTL I.COL.PTR ROUTINE DECLARATIONS 
1.COL.PTR: 
CLR RO ; TBL. INDEX 
002222 1$: CLRB COL.PTR(RO) : *(TBL. INDEX) 


Pa 77 
SEO°0112 


EE 


em a me ane Se 
rn ee ae ee 
ere eee se 

ee ee ee 


18-Mar-19 :07:57 TOPS=-20 Bliss-1 vetele? P 78 
18 85 18:46:41 PA: <NEALE>PMSKL4.BL1.1 (23) SE0°0113 


BSKEL4 

REV B PATCH 00 ROUTINE DECLARATIONS 18-Mar-19 

005242 5 INC Re ; TBL. INDEX 2974 
005244 0 000011 CMP RO,411 ; TBL.INDEX,* | 
005250 3772 BLE 1$ : | 
005252 000207 RTS PC ; 2932 


:; Routine Size: 8 words 
: Maximum stack depth per invocation: 0 words 


—_ a mee cc cr er a ee Sa. - 


1g-har=1982 19: Or: tf TOPS=20 Bliss-16 V2(2 ¢ 
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REV B PATCH 00 ROUTINE DECLARATIONS 18-Mar-19 PA: <NEALE>PMSKL4.BLI.1 (24) SEQ 0114 

78 routine I_ERROR_MAP : novalue = 
begin 


79 


$81 le 

39 ¢ ' Functional Description: 

oar The error mae, 88 stores by sector and 

9 row numbe By A etected rel ures 

5 within a tented | mos chip. From this 

one map of the failing chip row or column 
addresses can be chosen for masking t the 

error out. 


This routine when called will init the 
error map to all zeros. 


Saeee 


2990 


Formal Parameters: 
none 


Implicit Outputs: 
- The error map is loaded with zeros. 


Completion codes: 
none 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

; inp iets Inputs: 
ERROR _MAP 
i 

i 

i 

i 

i 

i 

' Side Effects: 
none 
— 


a g 


'¢ 


3019 ‘ Loop through all the blocks and words 
3011 ' in S the error map structure and load the 
3012 ' Locations up with zeros. 
_ 
3015 incr TBL_INDEX from 0 to alge nort: Zo'2* do 'Intialize the error map 
3518 (ERROR_MAP + .TBL_INDEX) = 
3018 end; 
.SBTTL I.ERROR.MAP ROUTINE DECLARATIONS 
005254 005000 1.ERROR.MAP: 
RO ; TBL.INDEX 30 
010230" 1$: ERROR .MAP (RO) : *(TBL.INDEX) 30 
#2,R ; *, TBL.IND 30 
017776 RO.#17776 > TBL.INDEX,* 
it 74 au PC ; 2g 








ee ——_—_ = + —— 


BSKEL4 
REV B PATCH 00 ROUTINE DECLARATIONS 


: Routine Size: 9 words 
: Maximum stack depth per invocation: 


0 words 


9 
18-Mar=1 
18-Mar-1 


965 18:06:61 


TOPS~ 


PA:< 


0 Bliss-16 v2¢ ef 2) 
ALE>PMSKL4.BL1.1 


(24) 


Pa 80 
SEC0115 


——— et me 


<< en eee ee nt 0 0 ER RE nina 
ao — Se ee te <0 eet -9e ee Se eee -_ - S ieeetinet ae —— 


BSKEL4 
REV B PATCH 00 


: Routine Size: 


3020 
0 
021 


: Maximum stac 


cs a 


a 9 


18-Mar-1982 16:07:57 TOPS-20 Bliss-16 V2(212) 
ROUTINE DECLARATIONS 18-Mar-1985 18326341 PA: <NEALE>PMSKL4.8L1.1 (25) 
routine I_BLAST_TBL : novalue = 
begin 
bag 


' Functional Description: 

The blast table stores for all banks of 

a tested array module all blasting information 
needed to mask out data errors. 


This routine when called will init this table 
to zeros. 


Formal Parameters: 
none 

Implicit Inputs: 

- BLAST TBL 


Implicit Outputs: 
The blast table is loaded up with zeros. 


Completion codes: 
none 


Side Effects: 
none 


1+ 
! Loop through all blocks and words and fill 


the words up with zeros. 
incr TBL_INDEX from 0 to Nhe %0'2' do ‘Initialize the blast table 
(BLAST_TBL + .TBL_INDEX) = ZEROES; 
end; 
.SBTTL I.BLAST.TBL ROUTINE DECLARATIONS 
ecgmaals RO TBL . INDEX 
030372" 1$: CLR 7 ani : « (TBL. INDEX) 
$07 16 CMP RO.4#7776 : TBL.INDEX,* 
BLE 1$ 
RTS PC é 
: Q9words | ; 
k depth per invocation: 0 words 


Page 81 
SEQ 0116 


OR A LL LL LL LLL LE LLL LL, A A care) Se a ee 


mS VO ee 
ae ee 
ee wee 


BSKEL4S 18-Mar-19 TOPS-20 Bliss-16 V2(212) F 
REV B PATCH 00 ROUTINE DECLARATIONS 18-Mar=1982 18 eee aee eee eee e.Bri-1- (26) seo'O117— 
; 3026 pout ine | AMER DATA (TEMP_ARRSBNK_SEL) : novalue = 

: n 

058 . 

3 59S +4 

; 060 | Functional Description 

: 061 | This global routine will load via mass bus 

3 ¢ i ee transfers random data to the selected 

; bed | array and bank addressed by arr$bnk_sel. 

: 3065 Formal erenn SEL: 

: 3067 i “This arpment stores the array and 

: 068 | bank select address. 

s 3069 | 

s 3070 ! Implicit I ute: 

; 3071 i WRT _ » BNK_NUM_SEC 

3078 ? Implicit me t 

: te Ss: 

307%, i ™ 

3098 ae tion cod 

; e - codes: 

: 3059 i —_ 

3 3078 =! 

; 3079 | Side eececene 

3 3080 | 

s 3081 i- 

5 3082 

3 3083 Local 

; sons RANDOM_ INDEX; ‘Write buffer random data index 

: 3086 RANDOM_INDEX = ZERO; 'The first transfer starts at write buf word zero 
: 3087 GEN_RANDOM_DATA (); ‘Generate a write buf of random data 

: 3089 i 

3 3090 i oop through all sectors in this bank and 

; 3091 i eoee the sectors up with random data contained in 

; 3092 ' the write buffer. At each sector transfer 

3 3093 i the write buffer index will start two words 

3 3098 i deeper. 

: 300% i = 

: 3097 incr SEC_CNT from 0 to .BNK_NUM_SEC do ‘Load all sectors in bank with random data 

: WRT TRANSFER (SIZE = -256 eS - TEMP _. ARRSBNK _ SEL + .SEC_CNT, SRC = WRT_BUF C.RANDOM_INDEX, WRDJ): 
; 199 paw tat INDEX RANDOM. 1 INDEX + 2: 'Next sector starts 2 word deeper in write buffer 
; 3102 : 

: 3103 end; 


.SBTTL L.RANDOM.DATA ROUTINE DECLARATIONS 
005320 004167 0000006 L.RANDOM. DATA: 





EE I —— 


1e-Rar=1982 19390527 PRO SNEALESPASKLS OCI -1-¢ 





BSKEL4 Pp 
REV B PATCH 00 ROUTINE DECLARATIONS 26) SEQ 









JSR R1,S$SAVE4 ; 
005324 CLR * RANDOM. INDEX 
005 1737 42 JSR PC, GEN.RANDOM. DATA : 
005 CLR 1 3 SEC.CNT 
005 BR 2$ 
177600 1$: MOV 4-400,-(SP) ; 
5 — MOV tO es SEC.CNT 
Ps . * 
000016 ADD 16(SP) ,R2 : TEMP. ARRSBNK.SE,* 
005 040430' MOV R2,DST 
005 MOV R2,-(SP) 
MOV R3,R2 : RANDOM. INDEX, * 
$08 2234° ADD Beat BUF .R2 
oo2778 vee MOV Rg «SAC 
MOV R2,-(SP) 
005404 Ha JSR PC ,,WRT. TRANSFER 
005410 3 ADD #2,R3 : %, RANDOM. INDEX 
14 000006 ADD SP : 
94 INC By : SEC.CNT 
104 23: CMP R1,R4 > SEC.CNT.* 
003746 BLE 1$ 
RTS PC 5 





: Routine Size words 
; Maximum stack aed" per invocation: 8 words 


me ee oe ee eee ee ree mee ere ene ee ane 


e———————— ee ee 

C 10 
BSKELS lf 19:97:74 TOPS=20 Bliss-16 V2(212) Page 84 
REV B PATCH 00 ROUTINE DECLARATIONS 1 982 15:44:41 PA:<NEALE>PMSKL4.BLI.1 (27) SEQ 0119 


rout ine _1_0_DATA (TEMP_ARRSBNK_SEL, DATA) : novalue = 
n 


-Mar-1 


'e¢ 

' Functional Description: 

! This Se routine will load the 
selected array and bank with ones 
or zeros data. 


' 
i 
! 
Formal Parameters: 
i “This ar nt stores the array and 
bank select address. 
i Implicit Inputs: 

“2 WRT_BUF, BNK_NUM_SEC 
i Implicit Outputs: 
- WRT_BUF is filled up with data 
; 

i 

i 

i 

' 


Completion codes: 
none 


aed ed ed cand ed ced cand ced end ad ed cad en dd cd ed ed ed ed ed eed ed eed eed ed 


TONQIRININRINIAINIA) 2 et 


Side Effects: 
none 


: VER CZMLCB CHANGED 127 TO 255 


NINA 


1+ 
: Fill the write buffer up with the data 


type contained in the argument ‘data 


WALANIANAIAI ANNONA AAAI AAA AANAI NANA AAI AIA 


a ee ee ee ee ee ee 


3 

4 incr WRD_CNT from 0 to (255 + 511*2) do ‘Load the write buf with data 

: WRT_BuF C.WRD_CNT, WRDJ = .DATA; 

4 '+ 

4 ' Now fill this bank under test up with 

: the data just load into the write buffer. 

: ! 

4 incr SEC_CNT from 0 to .BNK_NUM_SEC do ‘toad all sectors in bank with data 

: WRT_TRANSFER (SIZE = ~256, BST = .TEMP_ARRSBNK_SEL + .SEC_CNT, SRC = WRT_BUF); 
5 


LAIN 


end; 


-SBTTL L.1.0.DATA ROUTINE DECLARATIONS 
005430 004167 0000006 L.1.0.DATA: 


ee + ne ee sa — CS _ — 


BSKELS 
REV B PATCH 00 


: Routine Size: 
: Maximum stack 


ROUTINE DECLARATIONS 


000012 002234" 
002375 
040416" 
177400 
040426° 


000016 
040430" 


002234" 
32 
176162 
000006 


38 words | 
depth per invocation: 


1$: 


2s: 


3$: 


7 words 








rebel 
18-Mar-19 


R1,$SAVE3 
RO,R1 

12(SP) ,WRT BUF (R1) 
RO.#2375 
BNK.NUM. SEC R3 
R2 


16( 


PC 


$ 
#-400 
Pp 


(SP) 
), SIZE 


R 
SP) ,R1 


WAT. TRANSFER 


83 


1 
1 


ee 


07:57 
244:41 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BL1.1 (27) 


* WRD. CNT 
: WRD.CNT,* 


— 
33 
had 
_ 
2 
=~ 


; WRD. CNT,* 


; SEC.CNT 


SEC.CNT,* 
TEMP. ARRSBN«.SE,* 


SEC.CNT 
: SEC.CNT,* 


a eee ee 


Pa 
SEQ°0120 


85 


B 4 18-har=1982 19:97 TOPS~-20 Bliss-16 veCet2) 
REV B PATCH 00 ROUTINE DECLARATIONS -Mar-19 PA: <NEALE>PMSKL4.8L1.1 (28) 


routine L_CHIP_TBL (FAIL_CHIP, PAT_SEL) : ‘ovalue = 
begin 





“tenttanel Bescr iat tion 
The bad c + table stores for a bank 
all the fai ing mos rams and thier 

failing data patterns. The possible 

data patterns that could fail are: 
1. all ones data 
¢- all zeros data 
. thirteen onan data patterns 


This global routine will set the fault flag 
and failing data > flag for each 
mos ram found t 


Forma ea oenBS 
mat oie Points to the failing chips table position 


Points to the current failing pattern for this 
chip. 


pap Se hp ee 


VISSLSALERTISSSNEGLUN 


LANIANIANIAI AANA 


I isi a 

- D ebles bit ponte tere fault 13" either 
came Po or pat_1 or ran_1 to ran_1 
are selected and set fo a 1. 


Completion codes: 
none 


Side Effects: 
none 


CHIP_TBL C.FAIL_CHIP, FAULT] = SET_FLG; 'Set this chips fault flag 


AANA AAAIAA AANA AIA AAAI AA 


mee eee ae mee aD me ees eh me ce me me me ee ce ee me ee me ce me ee a ek ed ed ed ed et ed od ts dd 


1+ 
i Index into the chip table at this failing 
chip and pattern nahor and set the bit. 
case .PAT_SEL from 0 to 14 of ‘Select the chips failing data pattern 
set 
[0] : 
CHIP_ TAL C.FAIL_CHIP, PAT_OJ = SET_FLG; 'Set zeroes data flag 
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RORGRORS OORT OFORORORORGAOAD 


Se Ge ee Ge Be ey Be Se ee Be Fe Ge Fe Se ae Fe Fe Ge Fe Fe ee Fe Fe ee Se Fe ae Fe Se ee Fe Se ese Fe Se ee Be Se ae Fe Seas Beg 
Ww 
Fy oY oY a oy ot ys WYRVIVYNANES ~ 


005544 010146 


Br ono 


DECLARATIONS 


[1] : 
CHIP_TBL 


(2) : 
CHIP_TBL 


(3) : 
CHIP_TBL 


[4] : 

CHIP_TBL 

3: 
CHiP_TBL 


J : 
CHIP_TBL 


[7] : 
CHIP_TBL 


(8] : 
CHIP_TBL 


[9] : 
CHIP_TBL 


[10] : 
CHIP_TBL 


(11) : 
CHIP_TBL 


[12] : 
CHIP_TBL 


C13] : 
CHIP_TBL 


[14] 
tes; 


CHIP_TBL 


C.FAIL_CHIP, 
C.FAIL_CHIP, 
C.FAIL_CHIP, 
C.FAIL_CHIP, 
C.FAIL_CHIP, 
C.FAIL_CHIP, 
C.FAIL_CHIP, 
C.FAIL_CHIP, 
C.FAIL_CHIP, 
C.FAIL_CHIP, 
C.FAIL_CHIP, 
[.FAIL_CHIP, 
C.FAIL_CHIP, 


C.FAIL_CHIP, 


L.CHIP. 


AS 
AD 


PAT_1) 
RAN_1] 
RAN_2] 
RAN_3J 
RAN_4] 
RAN_5] 
RAN_6] 
RAN_7) 
RAN_8] 


RAN_9] 


RAN_11 


18-Hare19 
18-Mar-19 


SET_FLG; 


SET_FLG; 


SET_FLG; 


SET_FLG; 
= SET_FLG; 


SET_FLG; 


= SET_FLG; 
= SET_FLG; 
= SET_FLG; 


= SET_FLG; 


RAN_10] = SET_FLG; 


J = SET_FLG; 


RAN_12] = SET_FLG; 


RAN_15] = SET_FLG: 


'Set 


'Set 


'Set 


‘Set 


'Set 


‘Set 


‘Set 


'Set 


'Set 


'Set 


‘Set 


‘Set 


'Set 


8 18:26 


'Set ones flag 


ne ee ee 
- ee ee te 


TOPS-20 Bliss-1 
PA: <NEALE>PMSKL4. 


random data 1 flag 
random data 2 flag 
random data 3 flag 
random data 4 flag 
random data 5 flag 
random data 6 flag 
random data 7 flag 
random data 8 flag 
random data 9 flag 
random data 10 flag 
random data 11 flag 
random data 12 flag 


random data 13 flag 


-SBTTL L.CHIP.TBL ROUTINE DECLARATIONS 


TBL : 
MOV 
MOV 


or 


R1,-(SP) 
6(SP) ,RO 


#CHIP.TBL,RO 


: FAIL.CHIP,* 


ye tate? 


(28) 


87 
SEQ *0122 





sea°0123° 
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PA: <NEALEPASKL BL -1 (28) 


TOPS-20 8liss-1 
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74 words 


020000 
010000 


tah aete eAcNe vee es 


2 
i 
Pease 


S 
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> Routine Size: 
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: Maximum stack depth per invocation: 


2 words 


19-hane19 
18-Mar-19 


BS 15:44 


eae a we eee ei ee 


TOPS- 
PA:< 


0 Bliss-1 
ALE>PMSKL 


= 


v2(212) 


-BLI.1 (28) 


Pa 89 
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eee 
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BSKEL4 18-Mar-1982 16:07:57 TOPS-20 Bliss-16 V2(212) Pa 90 
REV B PATCH 00 ROUTINE DECLARATIONS at + 18500523 PA: <NEALE>PMSKL4.BL1.1 (29) SEQ°0125 


re routine L_FAILING_CHIP (TEMP_ARRSBNK_SEL, BAD_CHIP, LST_PAT) = 
4 begin 

50 

3] Lae 

4 ' Functional Description: 

5 The orogens will first search though a 

54 selected arrays bank and find all 

55 newly failing mos rams and store them 

2$ into the chip table. 

58 Once they are found they are then loaded 
59 with the data pattern which failed them 
260 and failing row column pair addresses are 

61 searched for. 


Ww 
FAR 


This global routine will load a farting chip 
with one of the data patterns which failed 
during the mass bus transfers. 


. i 

: i 

: i 

- i 

- i 

; i 

- i 

- i 

Pr i 

: i 

. i 

4 i 

; i 

7 i 

: 

; ' Formal Parameters: 

; 32 9 ! ARRSBNK_SEL : 

; 3270 =! This ar t stores the array and 

; 3271 ! bank selcect address. 

; 3272 «| BAD_CHIP: 

: $55 : This points to a failing chip which is 
: 74 ( currently being pm‘ed. 

5 3275 ~=! LST_PAT: 

; 3276 =! This is a pointer into the failing pattern 
; 4 ae portion of the table. The failing pattern 
: 3278 =! search starts at the last found failing pattern 
; $5ap and will return with the next failing pattern 
: 358) Implicit Input 

: ! c Ss: 

; 358 ! ise CHIP. TB 

5 8 CS! 

: 35R¢ ! Implicit Outputs: 

: 3286 =! none 

; 3287 ! a 

: 3288 ! Completion codes: 

: 89 =|! At the completion of this routine 

3 : Pat_sel is returned to the operator 

: = 2 which points to the table location 

: 3 ! which was last referenced. is 

: é enables an N search of this table 

: 3 : rather than an N squared search. 

: 296 =! lf a chip is found to be bad then 

: = the failing pat_sel is returned. 

: Ss : A negitive one js returned if no 

: 299 :~C! chip are found to be bad. 
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3300 i Side Effects: 
. none 
(oe 


+ 


Increment through the chip table and 
search for failing patterns for this 


failing chip number. ng 
pattern is found then return the neon 


Besseess 






310 value for that pattern else return a 
a3 -1 to indicate that no failing patterns 
3318 _exist for this chip. 
3314 
$312 incr PAT_SEL from .LST_PAT to 14 do 'Search th chip table for a failing pattern 
; 1 begin 
318 '+ 
3339 ! Index into the chip table at this 
20 ' pattern selected and see if this 
335) pattern is set for thie failing chip. 
3359 ' If a se.ected conten Fag: oy bit is not 
3324 ' set for 2 voiling ox rate the 
3325 ! random data in the aes “ioe er anyways. 
3326 ' This will keep the write buffer filled with 
3327 ' random data relitive to the random data failing 
$356 the mass bus transfers. 
3350 
3331 case .PAT_SEL from 0 to 14 of ‘Select a pattern 
3336 set 
3334 [0] : 7 
3336 if .CHIP_TBL C.BAD_CHIP, PAT_0] !Did this pattern fail 
3337 then 
3338 begin, 
3339 LOAD (. TEMP SBNK_SEL ZEROES) ; ‘Load chip with zeroes 
3340 CHP Oat [.BAD CHIP, PAT 07 = (gLR. FLG: iClear this pat flag 
341 FLG_REG CF RAND. =DATA) = CLR ‘Clear the random flag 
34 return .PAT_SEL “Tisturn which pattern was selected 
3344 end; 
$302 C1] : 
3347 if. .CHIP_TBL [.BAD_CHIP, PAT_1] !Did this pattern fail 
en 


in 
5 DM_1_0_LOAD (.TEMP_ARRSBNK SEL ONES); ‘Load chip with ones data 
51 CHIP"TBL C.BAD_CHIP, PAT_1] = éLRe FLG: iClear this pat flag 


Pa 91 
SEQ0126 


ee 
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: 3355 FLG_REG CF awe. DATA] = CLRL FLG; ‘Clear the random flag 

: 27 return . -PATLS ‘Return which pattern was selected 

: end; 

; 3 55 

: 3328 (2) : 

: $326 if not .CHIP_TBL C.BAD_CHIP, RAN_1] ‘Did this pattern fail 

: 3359 then 

; 3360 begin 

; 330) Ge ER BATA QO; 'Gen the random data but dont load it 
: 33635 a 

; 3364 begin 

5 3365 DM_RAND_LOAD (.TEMP_ _ SBNK SEL); ‘Load the chip with random data 
; 3366 CHIP TBE [.BAD CHIP; 1}"= CLR_FLG; iClear this pat flag 
; 3367 FLG_REG CF RAND DATA) = RSE T_FLG; ‘Set the random ag 

: 3368 return .PAT_SEL “'Return which pattern was selected 

; 3369 end; 

3 3370 

: 337) (3) : 

$ 3373 if not .CHIP_TBL C.BAD_CHIP, RAN_2] ‘Did this pattern fail 

3 3374 then 

; 3375 boatn 

; 3376 GEN_RANDOM_DATA (); 'Gen the random data but dont load it 
5 3377 end 

3 3378 else 

; 3379 begin 

E 3380 DM_RAND_LOAD (.TEMP_ARRSBNK_SEL); ‘Load chip with random data 

; 3381 CHIP Tec (.BAD CHIP; RAN_2]'= CLR_FLG; ‘Clear this pat flag 
: 3382 FLG_REG CF PANS DATA] = SET TFLG: Set the random flag 

: 3383 return »PAT_SEL ‘Return which pattern was secected 

; 3385 

: $309 [4] : 

; 338 Bh not .CHIP_TBL C. BAD. CHIP, RAN_3] ‘Did this pattern fail 

. 390 cea 

: +4 _RANDOM_DATA (); 'Gen the random data but dont load it 
; 39 _" 

; 394 gin 

: 95 DM_RAND_LOAD (.TEMP ARRSONT SEL); pions cnie with random data 

; aS CHIP_TBL C.BAD CHIP, 5s CLR_FLG 'Clear this pat flag 
: 9 FLG_REG CF wot DATA] ANT T_FLG: Set the random data flag 

: i return .PAT_S ‘Return which pattern was secected 

: end; 

; 00 

5 01 C5] : 


0 if not .CHIP_TBL C.BAD_CHIP, RAN_4] ‘Did this pattern fail 


oe 


o-~ ee ee ee + eo — ee ————eEE —————- -_- 
-_ sje ema as “eae aa at a tt en ee LLL LL LLL LLL LLL -_ 


— ee mm rt eae ee ea ee eer or eee 
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3 a708 then 

3 5 begin 

: 06 GEN_RANDOM_DATA (); 'Gen the random data but dont load it 
: e 

; 08 else 

; 09 pesto 

5 10 cee (re ANed-= CLA :Load chip with random data 
: 3411 CHIP eer BAD CHIP RAN_4)~= CLR_FLG; iClear the pat flag 
; le FLG_REG CF_RAND ATAI =" ET_FLG; ‘Set the random data fla ag 

: 341 return .PAT_S “'tReturn which pattern was selected 
; 14 end; 

; 15 

: 3719 [6] : 

; 3418 if not .CHIP_TBL C.BAD_CHIP, RAN_5] Did this pattern falil 

$ 3419 then 

5 5059 begin 

: 3421 GEN_RANDOM_DATA (); 

: 3422 end 

: 3425 else 

; 3424 begin 

: 3425 DM_RAND_LOAD (.TEMP ~ARRSBNK _SEL) ; ‘Load chip with random data 
; 3426 CHIP TBE [.BAD CHIP” RAN 5J-= CLR_FLG; ‘Clear the pat flag 
: 3427 G_REG a DAT Nee T_FLGs ‘Set the random data flag 

: 3428 fn Pate SEL ‘Return which pattern was selected 
; 3429 end; 

3 3430 

; 303) [7] : 

: 3433 if not .CHIP_TBL C.BAD_CHIP, RAN_6] ‘Did this pattern fail 

; 3434 then 

; 3435 begin 

3 3436 GEN_RANDOM_DATA (°; 'Gen the random data but dont load it 
: 3437 end 

; 3438 else 

: 3439 begin 

E 3440 DM_RAND_L ay TEMP _ gys ~SEL); :Load chip with random data 
: 3441 CHIP a a CHIP, RAN 6] = CLR. 'Clear the pat flag 
: 3442 FLG_REG cf AO DATA] = SET_FLG; ~ Set the random data flag 

: 3443 return .PAT_SEL “iReturn which pattern was selected 
: 3444 end; 

s 3445 

; 3708 [8] : 

: 3448 if not .CHIP_TBL C.BAD_CHIP, RAN_7] 'Did this pattern fail 

: 3449 then |. 

; 3450 begin ; 
: sh2) « NER BATA Os; 'Gen the random data but dont load it 
: 3127 “es 

$ 54 begin 

: 3455 DM_RAND_LOAD (.TEMP_ARRSBNK_SEL); ‘Load chip with random data 


LLL DML LLL LL LLL LBL LLL ALLL LA IA 
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: 56 CHIP_TBL C.BAD_CHIP, RAN_7] = CLR_ FLG; ‘Clear the pat fla 

: 337 FLG_REG CF PANS DATA = = SET_FLG; ‘Set the random dat 5 flag . 

: 6 return. -PAT_SEL “iReturn which pattern was selected 

bs enc; 

; . [9] 

; rx if not .CHIP_TBL C.BAD_CHIP, RAN_8] ‘Did this pattern fail 

: 3464 then 

s 3465 begin 

; 3466 GEN_RANDOM_DATA (); 'Gen the random data but dont load it 
: 3467 end ; 

; 3468 else 

; 3469 begin 

: 3470 DM_RAND_LOAD (.TEMP_ARRSBNK_SEL); ‘Load chip with random data 

: 3471 CHIP Tet C.BAD CHIP; RAN_8) = CLR_FLG; ‘Clear the pat flag 

: a7 FLG_REG F PAN DATA) = RSET 1 FLG: ‘Set the random data flag 

: 7 en oy ay SEL “'Return which pattern was selected 

e 3474 end; 

: 3475 

3 3276 [10] : 

; 3478 if not .CHIP_TBL C.BAD_CHIP, RAN_9J 'Did this pattern fail 

: 3479 then 

: 3480 begin 

; 3481 GEN_RANDOM_DATA (); 'Gen the random data but dont load it 
5 3482 end 

: ty else 

: 3485 RAND_LOAD (.TEMP MP_ARRSBNK_SEL); ‘Load chip with random data 
: 3486 CHIP TBC C.BAD CHIP; RAN_9]-= CLR_FLG; iClear the pat flag 
: 3487 FLG_REG CF_RAND_DATA) = SET TFLG: ‘Set the random data flag 

: 3488 return -PAT_SEL; ‘Return which pattern was selected 

; 3490 

3 $195 (11) : 

; sea 2 not .CHIP_18L C.BAD_CHIP, RAN_10] 'Did this pattern fail 

: en 

; 3295 begin ; 
: ats GEN_RANDOM_DATA (); 'Gen the random data but dont load it 
s 349 end 

: 98 else 

$ 99 begin 

: 500 DM_RAND_LOAD (.TEMP_ARRSBNK mr 'Load chip with random data 
: 501 CHIP TBC [.BAD CHIP, RAN 10] = CLR_FLG; ‘Clear the pat flag 
: 50 FLG_REG CF PAN DATA] = RSET TF ics” ‘Set the random data flag 

: 50 an PAT SEL ‘Return which pattern was selected 

: ote end; 
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end; 


tes; 


return -1; 
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if not .CHIP_TBL C.BAD_CHIP, RAN_11] 
then 


else 


C13] : 
if not .CHIP_TBL C.BAD_CHIP, RAN_12] 
then 


[14] : 
if .CHIP_TBL C.BAD_CHIP, RAN_13] 
then 


begin 
DATE TBC C_BAD 
FLG_REG CF_RAND 
return .PAT_ 


end; 


end; 


begin 


DONTE BCC BAD 
FLG_REG CF_RAND 
return .PAT_SEL 


end; 


-SBTTL 
L.FAILING. CHIP: 
JSR 


begin 
GEN_RANDOM_DATA (); 
end 


MP_ARRSBN 
HIP, 
DATA] 


beaten 

GEN_RANDOM_DATA (); 
end 

else 


); 
CL 


10 


N 
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'Did this pattern fail 


!Load chi 
a 


“FLG; ~ !Set the ra 
‘Return which pattern was selec 


‘Gen the random data but dont Load it 


with random data 
ear the pat flag 
ndom data 


‘Did this pattern fail 


. TEMP_ARRSBNK_SEL) ; 
CHIP, RAN_13] = CLR_FLG 
DATA] = SET 


‘Load chip 
R_FLG; C 


'Load ch 
'Set the ra 


'Gen the random data but dont load it 


andom data 

he pat fl 

% ' 1Set the random data flag 
‘Return which pattern was selected 


'Did this pattern fail 


ip with random data 
Clear the pat flag 
ndom data flag 

‘Return which pattern was selected 


‘Return negitive one if all pattern flags are cleared 
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040422" 


4$: 


5$: 
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B 11 

1e-per 1985 1Sinese) 
nora 
RO.R 
10(SP) ,R1 


R 
24$ 
R1,RO 


3$(RO) ,PC 
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14(SP) ,-(SP) 
-(§P) 

PC.DM.1.0.LOAD 
¥ (R2) 
#40,FLG.REG 
(SP5+, (SP)+ 
#10000, (R2) 
neem 

be Bm RAND. LOAD 
#56000" (Ro) 

2$ 
#4000, (R2) 
14(SP) ,-(SP) 
PC .DM.RAND.LOAD 
#4600, (R2) 


#2000, (R2) 
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; LST.PAT,PAT.SEL 
; PAT.SEL 


P+ PAT.SEL,* 


TEMP . ARRSBNK . SE ,* 


TEMP .ARRSBNK.SE,* 


TEMP . ARRSBNK .SE .* 


TEMP . ARRSBNK SE ,* 
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> 98726 
002060 


001000 


6 000s 
7 173702 
001000 


000400 


000014 
173656 
000400 


10$: 


118: 


12$: 


13$: 


14$: 


15$: 


16$: 


17$: 





C 11 


18-Mar-19 
18-Mar-19 


19% 

14(SP) ,=(SP) 
PC.DM.RAND.LOAD 
#2000, (R2) 


gage the) 
19 


14(SP) ,-(SP) 
BC ,DM. RAND. LOAD 


#400, (R2) 
19$ 

14(SP) ,=(SP) 

PC .DM.RAND.LOAD 
#400, (R2) 

22 

(R2) 


SUM FO 
ou ane 


22 0—— 
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TY ae aed ™ 
2ASSZENIA 
es 3 
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* TEMP. ARRSBNK.SE,* 


TEMP .ARRSBNK SE ,* 


; TEMP.ARRSBNK.SE,* 


TEMP .ARRSBNK .SE ,* 


TEMP .ARRSSNK.SE,* 


TEMP . ARRSBNK .SE ,* 


TEMP .ARRSBNK.SE,* 


TEMP .ARRSBNK.SE,* 


TEMP .ARRSBNK.SE,* 
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006510 
006512 
006516 


S555 
SoS 


Srereeereeee § 


zy EES 


: Routine Size: 
: Max imum stack 


ROUTINE DECLARATIONS 


OCO002 
172550 
14 
173436 
000002 
000001 


14 
173412 
00000 


1 
000040 040422" 


000016 
177204 
177777 


206 wo 
doth » ees tee tens 


18$: 
19$: 
20$: 


21$: 


22$: 
238: 
24$: 
25$: 


5 words 





or 13306341 


22$ 
#2, (R2) 
PC, GEN. RANDOM. DATA 
14(sp) -(SP) 
m. RAND. LOAD 
a ACH 
#1, (R2) 


4(SP) ,=(SP) 
BC .DM, RAND «LOAD 


f 
#40, FLG.REG 
p5+ 


- a oe 
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TEMP .ARRSBNK . SE , * 


TEMP . ARRSBNK . SE * 


PAT.SEL,* 


; PAT.SEL 


PAT.SEL,* 
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553 routine L_ERROR_MAP (TEMP_ARRSBNK_SEL, BAD_CHIP) : novalue = 

554 begin 

555 

228 '++ 

557 '! Functional Description: 

228 ! The error map stores by sector all the 

5 newly failing row addresses within a vai ting chip. 

S6U The failing column address can be calculate 

561 by adding the row number to the sector number. 

308 This pier routine searches all sectors within 

564 a failing chip igen ing for bad row addresses. 

565 fa row is detected then that rows 


a ee eee eee 


Soke 


Io. 


“I~ 
WNIRAS UNO 


WIWAWAWNANAIAWN WI NAW 
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wi 
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WA. ALAA 
wi OS 


bear tr 
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E 11 


bit position in the error map at this 
sector is set indicating the bad row. 


Formal Parameters: 
ARRSBNK : 


sii omen’ argument stores the array and bank select address 
-"" This argument points to a failing which is present 

being tested. Dividing this arg by 4 gives the nibble 
position in the ML-11 word and this arg mod 4 gives the 
chips bit position within its nibble. 


Implicit Inputs: 
ee TERROR MAP, FLG_REG, WRT_BUF 


Implicit Outputs: 
The error map is loaded with failing row address 
locations within the tested chip sector range. 


Completion codes: 
none 


Side Effects: 
none 


local 
WRD_INDEX, ‘Points to a word in the error map 
BIT_INDEX, ‘Points to a bit in the error map 
_ INDEX ‘Sector random starting position. . . 
DIAG-REG_SEL. 'Select data diag reg where failing chip resides 
T_SEL, ‘Select the failing chip position 
OFFSET; 'First selects data diag reg; second selects random data offset 


BAD_CHIP / 16 AND BAD_CHIP MOD 16 WILL 
POIRT TO WHICH DIAGNOSTIC REGISTER THE BAD 
CHIP_CAME FR T 

POSITION WITHIN THE REGISTER. 


ST TT see ens stent 
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* DIAG_REG_SEL = .OFFSET + 15; 10 + 15 = MLD1; 1 + 15 = MLD2 


ss 


Ww 
= 


when random data is loaded into 
the drive it is done by atact ing 
the mane sector write transfer two 
deeper into the write buffer from 
the previous transfer. 


The flag register will indicate if the 
data loaded into this — is random data 
or not. If ions data 


earae 


Ww 
™~ 


this routine must also offset into the write 
buffer two words deeper at each sector transfer. 
1f random data was not loaded then the offset is 
is not required. 


: 5 ! 

; 3606 OFFSET = .BAD_CHIP/16; ‘Calculate which data diag reg to read 
; 7 BIT_SEL = -BAD_CHIP mod 16; ‘Calculate failing chips bit position 
: 3609 509 i 

: a ! OFFSET VALUES 6 = AL = MLE2 = 14; 

: 11 ‘ = MLD1 = 15; 

; 3016 = MLD2 = 16; 

: 3614 i From the value of offset calculated above 

; 3615 ' it can be determined which data diagnostic 

; 3616 } register his” failing bit comes from. 

: 3618 i Therefore examin the contents of offset and 

; $255 determine which register this bit belongs to. 

: 3621 

: e i? OFFSET eql 2 ‘Is bad chip divided by 16 equal to 2 
: 4 

; 5 SiO REG_SEL = 14; ‘Select data diag reg m 

: $ end SEL = -BIT_ SEL + 8: 'This registers data ty starts in high byte 
: 8 


if .FLG_REG CF_RAND_DATA] then OFFSET = 2 else OFFSET = ZERO; ‘Offset = 2 if random data 


DM_RD So elle (SIZE = -256, DST = RD_BUF,. 7 = .TEMP_ARRSBNK_SEL) 
RAND_INDE ZERO; iThe first sectors “date starts at word zero 


for 
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' 

i Bump the next sector transfer two words 
; ' deeper in the write buffer if this data 

i is random data if not random data then 

add zero. 


705 : 
‘ —— = .RAND_INDEX + .OFFSET; 'The next sector starts 2 words deeper if random data 


; ' rows. 

3 $627 ‘ 

5 59 ' Increment throyen all sectors in this bank qnd 

3 ' compare the Po data to the data sittin 

; 1 ' this chip. compare errors determine which 

; ¢ ' row(s) are e error and indicate the 

: : fatiure(s) by setting the row bit at this sector 

: : in the error map. 

3668 ror Se from 0 to .BNK_NUM_SEC do ‘Read all sectors in failing chip 

3 n 

9 BREAK: 

: 3670 

: 3671 i+ 

; 7 i Increment through all words in this sector 

; 7 ' and find all failing row(s) and store the failing 

; sone : number in the error map at this sector. 

: 3676 

; of ner Gay pam from 0 to 127 do ‘Read all words in failing chip 

3 egin 

; $009 DAY. CLK; ‘Clock data into the data diag registers 
: 3681 

3 368 i Soars the write data to the read data 

: and if in error then indicate the failure 

; ngs Bd this row bit at this sector in 

3 5 ‘. J error map. 

: 368 

: if .WRT_BUF ae yee ae i NUM, .BIT_SEL, ONE, ZERO] neq .ML_ADDR C.DIAG_REG_SEL. 
; ~ .6IT_SEL, ONE, Z ‘Is write buf data eql "Gata diag registers data 
s ss then * 

; Be URE T INDEX = .ROW_NUM/16; ‘Calculate error map pore of fai Ae 

: 9 BIT_INDEX =. NUM mod 16; Cateurate error 

; 3694 ERROR_MAP C.SEC_RUM, .WRD siioes ~B1T_INDEX 

3 369 dn REG CF_ERR RR_MAP_ENT TEREB SET _FLG; Flag thie” vn fy na Sevres 
37 ' 

3 end; 
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C8 Pas: ‘Clear the single step dma mode 
.SBTTL L.ERROR.MAP ROUTINE DECLARATIONS 
“a JSR R1 gSSAVES F 3553 
Sy i = (SP) ; BAD.CHIP,* 3606 
R “Bt : *, OFFSET | 
4 44(SP) , (SP) ; BAD.CHIP,* 3607 | 
Si. sara? 
000006 RO. 6 (SP) : *,BIT.SEL | 
000002 R4 M2 : OFFSET,* 3622 | 
000016 #16,R2 ; *,DIAG.REG. SEL 3625 | 
000010 000006 #10. °6(SP) ; « -BIT.SEL 3626 
1$: R4R2 * OFFSET,DIAG.REG. SEL 3629 
000017 #17,Re + *,DIAG.REG. SEL 
000040 040422" 2$: #40,FLG.REG : 3647 
000002 #2.RG : *, OFFSET 
3$: R4 : OFFSET 
177400 4$: #~400, (SP) : 3649 
040426" (SP) ,SIZE 
007230" #RD BUF .-(SP) | 
040430" (SP) psf | 
000052 52(SP) ,=(SP) : TEMP. ARRSBNK.SE,* | 
040432' (SP) ,SRC | 
172366 PC,DM.RD. TRANSFER | 
000014 14(SP : RAND. INDEX 3650 
040416" 000016 BNK NUM. SEC, 16(SP) 3667 
: > SEC.NUM 94 + 
5$: 2 3668 
: ROW.NUM 3677 
040374" 6$: : 3678 
00002 000032 : *,ML.REG | 
000032 : mL. REG. MLREG 
000020 > *, MLREG | 
ioe > MLREG.* | 
* ROW.NUM, * 3688 | 
000014 : RAND. INDEX, * | 
002234" | 
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oor oOo 14 Ra tSE ocSP> BIT.SEL 
- é . o* 
OO One 01 te $0 800% #1,=(SP) 
007102 00 0466 ~(§P) 
7104 004767 0000006 PC ,BLS$GT2 
007110 706 000006 #6,SP 
007114 01 RO,R3 
007116 010 R2,RO : 3689 
7120 066 040374" ML -ADDR RO 
007124 011066 000032 (RO) 2(SP) : *,ML.REG 
130 012716 0000 #32, (SP) 
0071 060616 SP, (SP) : ML.REG,* 
0071 016646 000014 14(SP) ,-(SP) : BIT.SEL.* 3688 
007142 O12 46 1 #1,-(SP) 
7146 00504 -(§p) 
50 00476 PC .BL$GT2 
007154 706 000010 #10 SP 
007160 020300 R3,R 
0071 1 7$ 
007164 010146 R1,-(SP) : ROW.NUM, « 3692 
007166 012746 000020 #20 
007172 004767 PC BL 
007176 01 000026 ~26(SP : *,WRD. INDEX 
010116 R1 : ROW.NUM, * 3693 
012746 000020 #20 
nthe 000026 RO” * BIT. INDEX 
$0500 Ree EC.NUM, « 3694 
a06300 : 
066600 000030 (SP) RO : WRD.INDEX,* 
006 RO 
062700 010230° RROR.MAP RO 
1 ie 000026 ts). (SP) BIT. INDEX 
or & = o* 
815946 000001 of =(SP) 
11646 (SP) ,-(SP) 
67 0000006 PC BL 
152767 000004 040422" #6.FLG.REG : 3695 
062706 000014 #14,SP : 3691 
201 7$: RI : ROW.NUM 3677 
127 000177 | 1.4177 : ROW.NUM, * 
000014 ADD R4,14(SP) : OFFSET. RAND. INDEX 3706 
5 RS : SEC.NUM 3667 
000016 8$: RS. 16(SP) > SEC.NUM,* 
016701 040374" Mi “ADDR R1 : 3707 
016166 o00828 000026 JO(R1) .26(SP) : | 
918500 0 #40,R0 : 
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007342 01 44 
007 8 4. 

00735 16 : 
00 1 


: Routine Size: 
* Maximum stack 


ce ee | 8 see + ee oe. ee 


ROUTINE DECLARATIONS 


000010 000024 


192 words 
depth per invocation: 


26 words 


ihe ee rn are 
Rb: ftRt) 
10(R1) 
“ADDR,R 
4 (R1), sh sp) 
24(SP).R 


vee 


Dw 
as 


oRO 
ML. -ADDRR 
ald 


TOPS-20 Bliss-16 V2(21 
PA: <NEALE>PMSKL4.B8L1.1 


@e Ge 2 


2) 
(30) 


MLREG,* 
* ,ML.REG 


; ML.REG,MLREG 


* ,MLREG 
* ,MLREG 


MLREG,* 
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routine X_TMP_BLST_TBL (TEMP_ARRSBNK_SEL, ALL_BAD_CNT) : novalue = 
egin 


++ 

Functional Description: 
The temp blast table stores the nibble number, 
row/column r and a r/c select flag for a 
row/colunm which has been selected for blasting. 


Once it is determined that this chip is not all 
bad (IE. > 10 all bad row/col) then this temp blast 
table is xfered into the main blast table. 


This table is needed because once this information 

is xfered into the main blast table there is no way 
of knowing which chip this bad row/col came from. 
therefore pening it impossible to delete a row/col 
from the blast table once it has been loaded into it. 


Formal Parameters: 
ARRSBNK_SEL: 
This argument stores the array and bank select 
address. 
ALL_BAD_CNT: 
This argument tells this global routine how many 


remainder table entries to xfer into the 
the main blast table. 


Implicit Inputs: 
mee TCBLASTTBL, TMP_BLST_TBL 


Implicit Outputs: 

The pemeery blast table contents are transfered 
to ~ last table at this bank, row and nibble 
pos 


Completion codes: 
none 


Side Effects: 
none 


local 
NUM; ‘Points to failing bank 


BNK_NUM = .TEMP_ARRSBNK_SEL<.BNK_SEL_POS, BNKSSEL_SIZE>; ‘Calculate the failing bank 
'+ 
! Index through the temporary blast tate 


' and set the appropriate row or column bits 
! in the main blast table at this row or 


ee ee ee oe + 


BS 
a | 
asessesssessss 


BSKELS 
REV B PATCH 00 ROUTINE DECLARATIONS 
columns nibble position. 


incr CNT from 0 to .ALL_BAD_CNT do 
If the row bit is set then set the row 


bit in tne main blast table af gd row, 
e eer pee F 


030346" 


177400 


the "aatn blast a 
ble numb 


c. oi BLST_TBL C.CNT, R_CJ eql 1 


BLAST TBL C.BNK_NUM, .TMP_ BLST. TBL C.CNT, R_C_NOJ, .TMP_BLST_TBL C.CNT, NIB_NOJ, ONE, ZERO) = 
sent FLG Load the blast table with the failing row no. at thi 


fle: _BLST_TBL C. tee R_C_NOJ] + .COL_BASE, .TMP_BLST_TBL C.CNT, NIB_NOJ, 


> BLAST - C .BNK NUM. 
Load the blast with the failing column at hiis nibble no. 


, 
Pc -BLSGT2 


0 6 ee. eee eee en _—- 
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‘Transfer temp blast table to blast table 


olan bit in 


'Is this a failing row 


ae X.TMP.BLST.TBL ROUTINE DECLARATIONS 


R1,$SAVE3 5 
#16,-(SP) 


BNK. SEL " Seeminaaed 


* TEMP. ARRSBNK.SE,* 


3; CNT 
; CNT,* 


R1 
#177400,R1 
3$ 


s nibble 
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3766 
3776 


| 

| 

| 

| 

| 

| 
3711 
3757 

3778 

i 

| 

i 

| 

| 
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ane 


s Routine Size: 64 words 
: Maximum stack depth. per invocation: 


11001 


¢ DOs" 
000207 


177400 


040372" 


030372' 


177760 
000001 


0000006 
000010 


000022 
000010 


2$: 


3$: 


4$: 


12 words 






phe ie 


(RO) ,R1 
R1 


R1 
R1 


R1 

#177400,R1 

COL BASE. Rt 
oR} 


> ae EE - TBL,R1 


R2,22(SP) 
#10,SP 
PC 
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* CNT 
CNT, ALL.BAD.CNT 
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SEQ?0142 


3781 


3782 


| 

| 
3776 
3766 
3712 
3711 

| 

| 
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: 3785 routine X_TO_REM_TBL (REM_PTR) = 
: 3 begin 
: 3788 «| ++ 
3 Ar ! Functional Description: 
; é Once the error map and the column count tables 
: 791 =~! have been searched for all bad rows and columns all 
; 792 ~«! that remains are single cell failures scattered 
: ad through out the error map. 
; 3795 =! This global routine xfers all the cemaining row column 
: 3796 =! address pairs of the remaining failures into 
; 797 =! the remainder table where eae are mee rgeved 
$ 3h38 and the best blast selection is determined. 
: Sans ! It should be noted here that two copies of the 
; > 2 remainder table exist. The ‘remainder table’ will 
; 3806 ! be used to manipulate column addresses (the right 
; ! side of the table) and the ‘copied remainder table’ 
; 3804 =! will be used to manipulate row addresses (the left 
; sane side of the table). 
; 3807 |! Formal Parameters: 
$ 3808 =|! REM_PTR 
; 3809 ! This argument will first point to the 
s sai; ! starting table position where the first 
: ap transfered row/column pair is to go. 
; 3318 ! 
: 3814 ! Implicit Inputs: 
5 3815 ! ERROR_MAP, REM_TBL, COPIED_REM_TBL. COL_CNT, 
$ 3816 BNK_NOM_SEC, MAX_CHIP_COL 
: 3818 ! Implicit Outputs: 
: 3819 ! The remainder and copied remainder table are 
; 3850 ! Loaded with the remaining single cell failures 
s 3821 ! within this tested chip which have not yet been 
; 38 selected for blasting. 
: 4 ! Completion codes: 
: e ! Once the global routine is completed ‘rem_ptr' 
3 8 ! is returned to indicate how many row/col 
: i pairs were xfered into the remainder table. 
: 9 ! Side Effects: 
5 ! none 
: : local , 
; WRD_ INDEX, ‘Stores the el paid row addresses word position — 
: 5 acent row addresses word bit position 
3 er 


BIT_INDEX, | | 'Stores the ad 
ROW NUM, ‘Stores a columns adjacent row 


ee 


-- ——— ea a na 
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ADJACENT _CNT, ‘Stores the number of edsacent row addresses found 
START SET, ‘Variable sector starting address 
C; ‘variable sector ending address 





B00 OA NO DOo0 NOME WI =O Obed 


'+ 
iy 


thr the column count table and 


ndex 
i Sanater failing columns ad ae row 


| into the remainder table 


incr —— from 0 to .MAX_CHIP_COL - 1 do 


i 
t 


‘Search column count table 


If this column count table position is 
not zero then search the error map for 
its row pair and transfer them into 
the ronetader table. 


6m. me C.COL_NUM] neq ZERO ‘Does this location have a count in it 


begin 


Determine Ray type chip we are testing 
generate the appropriate run time 
parameters "ter this routine. 


if .COL_NUM gtr 127 'Is this a 64k chip 
then 


= .C et - 128: 'The first column address starts at 128 
ROART Ss SEC = 2 'The first sector starts at 256 
END SEC = 511: _ 'The end sector ends at 511 
ona 
else 
Siar i“: = ZERO; 'The start sector starts at zero 
=. OL_NUM; ‘at the first sector the column = row 
if on _NUM_SEC eql 127 then END_SEC = 127 else END_SEC = 255; ‘Is this a 16k chip 
end; 


ADJACENT _ CNT = ZERO; 'Clear the adjacent count 


Now search thru the error map and find this columns 
' adjacent failing rows using rownum as a pointer to the 
adjacent row. 


incr SEC_NUM from .START_SEC to .END_SEC do 'Search all these sectors 


—_— ee —_——— 


<a ee eee oe . 


me a ce eee ee an —_— a ee eee 


rr ee 
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: g beat 

: WRD_INDEX = .ROW_NUM/16; ‘Calculate which word this row is in 

: if -ERROR_MAP C.SEC_NUM, .WRD_INDEX, FULL_WRDJ neq ZERO !Is this row bit set 

Ps en 

5 begin 

; 4 BIT. INDEX = .ROW_NUM mod 16; ‘Calculate the rows word bit position 

: 7 if. -ERROR_MAP [.SEC_NUM, .WRD_INDEX, .BIT_INDEX, ONE, ZERO] eql 1 

: 99 

: 900 258.2 T_CNT = ADJACENT. * + 1; 'Up the adjacent count 

: 901 REM_TBL C. REM_ PTR, COL] = _NUM; ‘Load the rem tbl with this column no. 
: 390 COPTED- REM_TBC C.REM_ BTR, cOL = .COL_NUM; ‘Load the copied table too 
: 3904 selectone .SEC_NUM of Find which physical row number this is 

5 fanz set 

: 390 [0 to 127, 256 to 383]: ‘Are we in quad 0 or 2 

: 3909 REM TL C.REM.PTR, ROW) = .WRD_INDEX*16 + .BIT_INDEX; 

; 3910 COPTED_REM_TBC C.REM_PTR, ROW]-= .WRD_INDEX*16-+ .B1T_INDEX; 

E sah end; 

: 3913 [128 £2,255. 384 to 511] : !Are we in quad 1 or 3 

: 3915 REM TBL C. REM PTR, ROW] = .WRD_INDEX*16 + .BIT_INDEX + 128; 

; 3916 COPTED_REM_TBL C.REM_PTR, ROW]”= .WRD_INDEX*16°+ .BIT_INDEX + 128; 
: 3918 tes: 

; 3920 REM_PTR = .REM_PTR + 1; !Up the rem_ptr pointer 

: 3982 if .ADJACENT_CNT eqlt .COL_CNT_TBL C.COL_NUM] then exitLoop; 

: 3924 end: 

3 3925 

3 39 : end: 

: ase = © (.ROW_NUM - 1) and %0'177'; ‘Decrement the row count and avoide over run 
° en 

; 3335 

; 931 end; 

s 93 

: $34 end; 

: 935 return .REM_PTR; ‘Return how many row column pairs were xfered 

; 3936 end; 


-SBTTL X.TO.REM.TBL ROUTINE DECLARATIONS 
007624 004167 0000006 X.TO.REM. TBL: 
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ee el ee eee Se 


D 12 








BSKEL4 18-Mar-1982 16:07:57 1oPs-20 Bliss-16 v2(212) Page 111 
REV B PATCH 00 ROUTINE DECLARATIONS 18-Mar-1982 15:44:41  PA:<NEALE>PMSKL4.BL1.1 (32) SEQ 0146 
JSR R1,S$SAVES : 3785 
0076 14 SUB /SP 
0076 016766 040376" 000012 MOV MAX. CHIP.COL,12(S?) ‘ 3847 
007642 046 -(SP) * COL.NUM 
ooes $ O88 — 1$ (SP) .R4 COL .NUM 3856 
: é . o* 
reo ossee 001002" COL. CNT. TBL (R4) 
76 001002 
007 00016 000502 16$ 
007664 021627 0001 2$: (SP) #177 : COL.NUM,* 3865 
007670 003412 3 
007672 011601 (SP) ,R1 : COL.NUM, ROW.NUM 3868 
007674 162701 000200 SUB #200,R1 + #,ROW. 
012766 900400 000010 MOV ws °10(SP) + # START. SEC 3869 
007706 012766 777. 000002 MOV #777.2(SP) + # END. SEC 3870 
007714 000416 BR 5$ : 3865 
007716 005066 000010 3$: CLR 10(SP) * START.SEC 3874 
007722 on 1 MOV (SP) ,R1 * COL.NUM,ROW.NUM 3875 
007724 026727 040416" 000177 CMP BNK.NUM.SEC 4177 : 3877 
00 001004 BNE 4 
007734 012766 000177 000002 MOV #177,2(SP) : *,END.SEC 
007742 000403 BR 
007744 012766 000377 000002 4$: #377,2(SP) : *, END. SEC 
007752 005 000012 5$: CLR * ADJACENT. CNT 3881 
7756 (01 000010 MOV 10(SP) ,R4& > START.SEC,SEC.NUM 3g88 
007762 005 DEC R4 : SEC.NUM 
007764 000574 | 15$ 
007766 010146 6S: MOV R1,-(SP) : ROW.NUM, « 3890 
007770 012746 000020 MOV #20,-(SP) 
7774 004767 JSR PC, SDIV | 
10000 010066 000012 MOV *12(SP) : *,WRD. INDEX 
010004 010400 MOV R4. : SEC.NUM,* 3892 
010006 006300 ASL | 
010010 006300 ASL 
010012 ASL 
910014 10005 MOV RS 
o1 1 3 000012 ADD 1 (SP) RS : WRD.INDEX,* 
010024 005765 010230" TST ERROR .MAP(RS) 
9100 001544 BEQ 4 
01 010146 MOV : ROW.NUM,* 3895 
010034 01 2746 000020 MOV 
010040 00476 JSR | 
010044 OT MOV : *, BIT. INDEX : 
010050 012746 010230° MOV : 3897 | 
010054 516 ADD 
010056 010046 : BIT. INDEX,* 
$9 Suggs ooo at 
snes fe 
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010100 001117 BN. 138 

010102 0052 000022 INC é (SP) : ADJACENT. CNT 3900 
010106 16605 000044 MOV 4(SP) RS ; REM.PTR,« 3901 
010112 006305 ASL R5 

010114 01 001402" MOV #REM, TBL.R2 

0101 50 ADD R3 Re 

010122 116612 000010 mMOVB =: 10¢ SP) (R2) ; COL.NUM,* | 
010126 012703 001712' MOV #COP ED. REM. TBL.R3 : 3902 
010134 116613 000010 MOVB = 10(SP), (R3) ; COL.NUM,* | 
010140 005704 TST RG + SEC.NUM 3904 
010142 00240 BLT 7$ | 
010144 0 000177 CMP R4,.4177 ; SEC.NUM,* 

010150 BLE 

010152 020427 000400 7$: CMP R4 #400 ; SEC.NUM,* 

010156 002420 BLT 

010160 020427 000577 CMP R4 A577 : SEC.NUM,« | 
010164 003015 BGT | 
0101 01 000016 8$: Ov 16(SP) ,RO : WRD.INDEX,* 3909 
010174 006300 ASL R 

010176 006300 L R 

01 006300 ASL 

010202 066600 000014 ADD 14(SP) ,RO : BIT. INDEX,* 

01 110062 1 MOVB 2 14R) | 
010212 110063 000001 MOVB 1(R3) : 3910 
010216 000433 BR i : 3904 
010220 020427 000200 9$ CMP R4,#200 > SEC.NUM,« 

010224 002403 BLT 108 

010226 020427 000377 CMP RG 4377 : SEC.NUM,* 

01 003406 BLE 118 

010 020427 000600 10$: CMP R4,4600 > SEC.NUM,* 

010240 00242 BLT 12$ 

010242 020427 000777 CMP R4,4777 : SEC.NUM,* 

010246 17 BGT 1 

010250 016600 000016 11$: MOV 16(SP) .RO : WRD.INDEX,* 3915 
010254 006300 ASL 

ot 56 006300 ASL 

OTOsee 906300 as 

01 066600 000014 14(SP) ,RO : BIT. INDEX,* 

010 010005 R5 

010 5 000200 #200.R5 

010 76 1 362 000001 RS, (Re) 

010 110563 000001 R5.1(R3) : 3916 
010 005266 000044 12$: 44 (SP) : REM.PTR 3920 
01031 00 R5 : 39°2 
010314 016603 000010 10(SP) .R3 > COL.NUM,* 

01 1 00100 ' CNT. TBL(R3) .RS 

010324 026605 2 (SP) RS : ADJACENT.CNT,* 

010 1003 

010332 062706 000010 #10,SP 
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610336 13 BR 16$ 
: 13$: CMP (SP)+,(SP)+ § 3894 
14$: Dee Ra 3; ROW.NUM,* 3928 
MOV R5,R1 : *,ROW.NUM 
177600 BIC F 3 95600 R1 : *,ROW.NUM 
CMP (SP) +, (SP)+ : 3889 
15$: INC R ; SEC.NUM | 
000002 cn R4,2(SP) 3 SEC.NUM,END. SEC | 
1gs: INC (SP) ; COL.NUM 3847 | 
000014 17$: CMP —_— ; COL.NUM,* : 
BGE 1 
177246 JMP 1$ 
34 18$: MOV 34(SP),RO : REM.PTR,* 3786 
16 - 4 § 3785 





: Routine Size: words 
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rout Sas Soh Pues (COL_SEL, QUANTITY, LST_REM_ENTRY) : novalue = 
gin 


Bliss-1 
E>PMSKL 


le4 
Functional Description: 
The r 


Cc 
the renesning single cell failures scattere 
through out the chip. These tables are 

for the best choice for blasting and once a row 
column pair is selected for blasting it’s occurance 
in these tables must be taken out. 


This ge routine will search the remainder tables 
selected column address for blasting and purges the 
table of its occurance and also its row pair address. 


Once the selected column address is purged the remainder 
table is copied into the copied remainder table. 


Formal Parameters: 
SEL: 


This argument points to the column selected 
- + + and the column to be purged from 
e table. 


Indicates how many occurances of this column 
to expect to find in the table. 

LST_REM_ENTRY: 

Points to the last table entry + 1. 


Implicit Inputs: 
REM_TBL, COPIED _REM_TBL 


Implicit Outputs: 
The remainder and copied remainder tables are purged 
of column address selected for blasting. 


Completion codes: 
none 


Side Effects: 
none 


‘ 
' 
i 
QUANTITY 
' 
) 
i 
i 
i 
' 


1+ 
! If only one row or column pair is left 
! in the remainder table then there is 


' no need to purge. 


3 .LST_REM_ENTRY gtr ONE ‘Purge the columns if remainder tadle entries > 1 
en 
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; 989 begin 
; 990 
; 991 1+ 
$ 99 ' Search through the remainder table Looking 
: 99 ' for the occurance of this selected column for 
$ 994 : purging. Pur_loc will point to the table 
3 3995 ' Location where this column is first found. 
3999 ei 
: <o55 finer FA LOC from 0 to .LST_REM_ENTRY = 1 do ‘Purge the remainder table of this column 
; n 
; 4000 ! 
: 4001 ' Is the contents of this table entry 
s rt equal to the selected column for purging. 
: 4004 
: thee 7 -REM_TBL C.PUR_LOC, COLJ eql .COL_SEL ‘Is this column to be purged 
: en 
; peo begin 
: 4009 i If this column is Located at the bottom 
: 4010 ! of the table then don't phys tcat ly move 
; 4011 ' the entries around. his routine 
: 4012 ! returns the (st_rem_entry will be adjusted 
: 40135 ' to effectively mask these columns out 
3 4014 ! the table. 
BR : 
: 4017 if (.PUR_LOC + .QUANTITY) neq .LST_REM_ENTRY  !Js this column Last in table 
en 
4019 in 
; 4020 beg 
; 4021 ! The selected columns for purging are not at 
: 4022 ? the end of the buffer so their table placements 
; $057 : must be shuffled around to purge them out. 
: 4025 | 
3 4026 incr PURGE from .PUR_LOC tg (.LST_REM_ENTRY ~- 1) = .QUANTITY do 
: 4027 REM_TBL C. » RO_CL] = .REA_TBC L.PURGE + .QUANTITY, RO_CL); 
: rs +4 end; 
; 40 
E rh ver czmlicb moved this incr loop here 
: 403 i Once the remainder table has been purged of 
: 4034 ' this selected column the copied_rem_table 
: 4035 ! must get a fresh copy to reflect the new 
; 40 ! table arrangement. 
; 2038 
: 4039 incr COPY from 0 to .LST_REM_ENTRY - .QUANTITY do Copy rem tbil to copied tbl 
3 4040 COPIED_REM_TBL C.COPY, RO_CLJ = .REM_TAL C.COPY, RO_CLJ; 
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ROUTINE DECLARATIONS 


exitloop; 


end; 
end; 


001402" 001402" 


001402" 001712" 


COL .PUR 


18: 


4$: 


5$: 
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1 Liss-16 V2(212) Page 116 
18-Mar-19 >PMSKL4.BLI.1 (33) SEQ°0151 
‘Exit the loop when purge is complete 
ogseTl COL.PURGE ROUTINE DECLARATIONS | 
JSR RI SSAVES ; 3937. 
MOV op (sh) «RS ; LST.REM.ENTRY,* 3987 
CMP R541 | 
BLE 9$ | 
(SP) ; PUR.LOC 3998 | 
BR 8$ | 
MOV (SP) ,R1 : PUR.LOC,* 4005 
ASL R1 | 
CLR R4 | 
BISB TBL(R1) ,R4 | 
cH 4(SP) : *,COL.SEL | 
MOV : QUANTITY,* 4017 | 
MOV | 
ADD ; PUR.LOC,* | 
CMP | 
BEQ | 
MOV : 4026 
SUB | 
MOV : PUR.LOC PURGE 
DEC : PURGE | 
MOV ; PURGE ,* 4027 | 
mov | 
ADD ; PURGE ,* 
ASL R1 
MOV §- REM. TBL(R1) , REM. TBL (RO) | 
INC R4& ; PURGE bead 
cw R4,R2 : PURGE,* 

MOV R oR : 4039, 
SUB R3,R | 
CLR 3; COPY 
BR &$ : 
MOV RO,R1 : COPY,* 4040, 


ASL 
MOV 


R1 
REM. TBL(R1) ,COPIED.REM. TBL(R1) | 


ne cere me ee ee a ee 


BSKELS “tedatlioge 1:0 757 TOPS=20 Bliss-16 V2(212) Page 117 
REV B PATCH 00 ROUTINE DECLARATIONS “Mar-1982 1 741 PA:<NEALE>PMSKL4.B8L1.1 (33) SEQ 0152 
01055 5 INC R ; COPY 4039 
010 6$: CMP RO.R2 ; COPY,* 

0105 BLE 5 

010564 03 BR 9$ : 4042 
010 00 oie 7$: INC ) ; PUR.LOC 3998 
9 FL 653993 8$ ar (SP) ,R5 ; PUR.LOC,* 

010574 00 736 9$: TST (SP)+ ; 3937 
010576 00020 RTS PC 


: Routine Size: 58 word 
: Maximum stack depth war invocation: 7 words 





LD LAA A ALLL LAL, LLL LLBLLLLL LLL - 


12 


7 
BSKEL4 1 ~ner= lias 19:97:24 TOPS-20 Bliss-16 V2(212) Page 116 
REV B PATCH 00 ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BL1.1 (34) SEQ 0153 


4050 rete Se (ROW_SEL, QUANTITY, LST _REM_ENTRY) : novalue = 
gin 


4055 !++ 
4054 ! Functional Description: 
This global routine is exactly the same as column 


. ‘ 

: 4056 ‘! purge except that the copied remainder table is 

; pert search and purged of row address. 

; 4059 ! Formal Parameters: 

: 4060 ! ROW_SEL: 

: 4061 ! This arqment points to the row to be 

s 1008 é purged from the table. 

; 4063 ! QUANTITY: 

; 4064 =! Indicates how many occurances of this column 
: 4065 ! to expect to find in the table. 

: 4066 ! LST_REM_ENTRY: 

: ris tA Points to the last table entry + 1. 

; 4069 ! Implicit Inputs: 

: rt tA REM_TBL, COPIED_REM_TBL 

: 4072 ! Implicit Outputs: 

: 4073! The remainder and copied remainder tables are purged 
; rt i of all occurances of row addresses selected for blasting. 
: 4076 ! Completion codes: 

: 4077 ! none 

; 4078 ! 

; 4079 ‘! Side Effects: 

; 4080 ! none 

: 4081 '!-- 

; 4082 

4083 ! 

: 4084 ! If only one row or column pair is left 

s 4085 ' in the copied_rem_tble then there is 

: 4086 !' no need to purge. 

: 4089 if .LST_REM_ENTRY gtr ONE ‘Purge the row if copied table entries > 1 
; 4090 then 

; 4091 begin 

: 409 

; 409 '+ 

: 4094 ! Search through the copied_rem_tble looking 

: 4095 ' for the occurance of this selected row for 

: 4096 ! purging. Pur_loc will point to the table 

; pret location where this row is first found. 

: 4099 


rh incr Ou At from 0 to .LST_REM_ENTRY - 1 do ‘Purge the copied rem table 
gin 


ee ee ome es —- > 
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410 


i Is the contents of this table entr 
equal to the selected row for purging. 


- -COPIED_REM_TBL C.PUR_LOC, ROW] eql .ROW_SEL ‘Is this the row to be purged 
en 


i | 
@ 
7 
Cc 
he | 
3 
w 
et 
> 
@ 
ted 
w 
ead 
iy 

: 
a 

@ 
| 
rad 
“% 
“< 
r 
Ge 
cs 
D 
& 
Qa 
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Cc 
Ww 
ad 
@® 
Qa 


7 (.PUR_LOC + .QUANTITY) neq .LST_REM_ENTRY ‘Is this the Last table entry 
en 

begin 

i The selected rows for purging are not a 


t 
' the end of the buffer so their table placements 
must be shuffled around to purge them out. 


incr PURGE from .PUR_LOC to (.LST.REM_ENTRY = 1) = .QUANTITY do 
COPIED_REM_TBL C7PURGE, RO_CL] = .COPIED_REM_TBL C.PURGE + .QUANTITY, RO_CLJ: 
end; 
ver czmlcb moved this incr loop here 
i! Once the remainder table has been purged of 
! this selected row the copied_rem_table 


' must get a fresh copy to reflect the new 
table arrangement. 





incr COPY from 0 to .LST_REM_ENTRY = .QUANTITY do 'Copy copied to rem 
REM_TBL C.COPY, RO_CCJ = .COPIED_REM_TBL C.COPY, RO_CLJ; 


garstoune ‘Exit loop when purge is completed 
end; 


end; 
end; 
end; 


ye oP oP oP ot? oP oT oe oY ot bt et ot ot et et ak ee ee ee eee 
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: Routine Size: 58 words 


BSKEL4 
REV B PATCH 00 ROUTINE DECLARATIONS -Mar-19 :44:41  PA:<NEALE>PMSKL4.BLI.1 (34) SEQ 0155 
_SBTTL ROW.PURGE ROUTINE DECLARATIONS 
010600 004167 0000006 ROW. PURGE : 
JSR R1,$SAVES : 4050 
010604 005746 TST -(§P) 
010606 016605 000020 MOV 20(SP) RS : LST.REM. ENTRY, * 4089 
01061 920527 000001 CMP R541 : 
010616 3460 BLE | 
0106 Q 005016 cLR (SP) : PUR.LOC 4100 | 
010624 011601 1$: MOV (SP) ,R1 : PUR.LOC,* 4107 
010626 1 ASL R1 
010630 005004 CLR R4 
010632 156104 001713° BISB COPIED.REM.TBL+1(R1),R4 | 
010636 020466 000024 CMP R4,24(SP) : #,ROW. SEL 
010642 001043 | BNE | 
010644 016603 000022 MOV 28 (SP) .R3 : QUANTITY,* 4119 | 
010650 010300 MOV R3,RO 
010652 061600 ADD (SP) .RO : PUR.LOC,* 
010654 020005 CMP RO,R5 
010656 001420 BEQ 
010660 010502 MOV R5,R ; 4128 
010662 160302 SUB R3_R 
010664 011604 V (SP) -R4 : PUR.LOC,PURGE 
010666 005 DEC : PURGE 
010670 000410 BR 3$ 
010672 010400 2$: MOV R4,RO : PURGE,* 4129 
010674 006300 ASL RO 
010676 010301 MOV R3,R1 : 
0 060401 ADD R4,R1 : PURGE,* 
10702 006301 ASL R1 
0704 016160 001712° 001712' MOV COPIED.REM. TBL(R1).COPIED.REM.TBL(RO) ; 
010712 005204 3$: INC 4 : PURGE 4128 
010714 020402 CMP R4,R2 : PURGE,* 
91971 00276 BLT 
10 010502 4$: MOV R5S,R ; 4141 
010724 005000 CLR RO : COPY 
010 000406 BR 
010 010001 5$: MOV RO,R1 : COPY,* 4142 
010 006301 ASL 
010 016161 001712" 001402" MOV COPIED. REM. TBL(R1) ,REM. TBL(R1) 
010742 005200 INC : COPY 4141 
oS é 6$: ay : »R2 : COPY,* 
orOrs0 000603 33 ates 
010752 005216 7$: INC (SP) : PUR.LOC 4100 
910754 1605 8$: C (SP) RS = PUR.LOC,* 
10756 2722 T 1$ 
0107 726 9$: TST (SP)+ : 4050 
0°97 207 RTS PC 
| 
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41 routine COL_SORT (LST_REM_ENTRY) : novalue = 
begin 


1o4 

Functional Description: 
Before the remainder table is interigated for columns 
the column side of the table must be sorted. 


This global routine will sort the column side of the 
remainder table and the row pair will get moved 
around with the column pair. 


Formal Parameters: 


LST_REM_ENTRY: 
Points to the last remainder table entry 


' 
i 
i 
i 
i 
' 
s 
u 
i 
i 
i 
i 
: Implicit Inputs: 
jee REM_TBL 
i 
' 
! 
u 
. 
: 
: 





Implicit Outputs: 
The remainder tables column addresses are sorted 
in ascending order. 


Completion codes: 
none 


Side Effects: 
none 


local 
TEMP; ‘Temporary storage for bubbled entry 


i If there is only one table entry 
! remaining then there is no need to 
' sort the table. 


3 -LST_REM_ENTRY gtr ONE ‘Sort the table if entries are > 1 
en 

begin 

i+ 


i Index each table entry and bubble up 
! table values in ascending order. 


a ee ee ee ee eee Se eS ee ee ee ere eS rere eee ee lll) 


SSSSSSSLILSSOSSRORSK SRS IIIS NA IVISSASSRASO SOIT 


incr PASS from 1 to .LST_REM_ENTRY - 1 do ‘Bubble sort table until in asending order 
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' Bubble up this table entry so its 
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end; 


0000006 
000020 
000001 
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C 13 
18-Mar-13 $ yas 


a in ascending order. 


incr index from 0 to ((.LST_REM_ ENTRY - 2) = (.PASS = 1)) do 
‘Bubble up the biggest number 


' 
' Is this table entry greater then the next 
' table entry and if so then swap the two 

| entries else its in ascending order. 


if .REM_TBL C.index, COLJ gtr -REM_ TBL C.index + 1, COLJ 
'I§ the next entry > this one 





then 
begin 
TEMP = .REM_TAL C. ndeg - _RO CLI; Copy the sPigger gntry 
REM_TBL C.index, RO_C REM_ TB C. index + ‘Put the smaller entry here 
REM TBL £.index + 1, bo CL] = TTEMP: pit Ree bigger entry in next entry 
ng. 
.SBTTL COL.SORT ROUTINE DECLARATIONS 
COL.SORT: 
JSR Wi Seave> 3 
TST (SP) 
MOV 20(SP) .<(SP) : LST.REM.ENTRY,* 
CMP (SP) #1 
és 
MOV (SP) .RO : 
SUB #2,R0 
: PASS 
BR 5% 
1$: Re : 
SUB e : PASS.* 
MOV R5,R1 
INC R1 
CLR R4 : INDEX 
BR 4$ 
2$: MOV R4.R5 : INDEX,* 
ASL RS 
MOV #REM. TBL,R2 
ADD RS, 
MOV Ra R : INDEX,* 
ADD +2,R5 
CMPB com (R5) 
BLOS 
MOV th), 2(SP) > *, TEMP 





Ot a LT 
eel a | ee eee 
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REV B PATCH 00 ROUTINE DECLARATIONS “photog 6 a: 741 sr Seat srnens 2.0 i.) (35) SE0°0159 
011064 111g yet (R2) : 4220 
011066 16615 000002 SPS, (RS) : TEMP,* 4221 
011 5204 3$ ; INDEX 4207 
011074 0 1 4$ Re 3: INDEX,* 

011076 7 ; 2 

011100 5$ R ; PASS 4200 
011102 16 R3, (SP) 3; PASS,* 

011104 3 44 

0111 $s 6$: (SP)+,(SP)+ : 4152 | 
01111 PC | 
: Routine Size: 43 word 

: Maximum stack depth oar invocation: 8 words 
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ROUTINE DECLARATIONS 


routine ROW_SORT (LST_REM_ENTRY) 
begin 


++ 


—_—_—— --_— = —_—_——— se ee a ee ee — —— awe 


E 13 
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18-Mar-1982 15:44:41 PA: <NEALE>PMSKL4.BL1.1 (36) 


: novalue = 


Functional Description: 


This global routine serves the s 
column sort except the copi 


rpose as 
ed remninder taple 


row addresses are sorted in ascending order. 


Formal Parameters: 
LST_REM_ENTR 


Poin 


Implicit Inputs: 
COPIED_REM_TBL 


Implicit Out 
- The c 


ts: 
sles remainder tables row addresses are sorted 





y: 
ts to the last remainder table entry 


in ascending order. 


Completion codes: 
none 


Side Effects: 
none 


local 
TEMP; 


'Tempory storage for bubbled entry 


If there is only one table me... 


sort the table. 


! 
i 
: remaining then there is no 
i 


if .LST_REM_ENTRY gtr ONE 
then 


begin 


‘Sort the table if entries > 1 


'+ : 
' Index each table entry and bubble up 
table values in ascending order. 


incr PASS from 1 to .LST_REM_ENTRY - 1 do 


1+ 


‘Bubble sort table until in aseending order 


i Bubble up this table entry so its 
in ascending order. 
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REV B PATCH 00 ROUTINE DECLARATIONS 1e-har=1962 n (44:41  PA:<NEALE>PMSKL4.BLI.1 (36) sea 161. 

; 4279 incr index from 0 to ((.LST_REM_ ENTRY - + ~ (.PASS - 1)) do 

; ‘ rs ‘Bubble up the biggest number 

: 4 i Is this table entry greater then the next 

: 4 ' table entry and if so then swap the two 

: : : entries else its in ascending order. 

; 4 

: 2 e age GIT C.index, ROW] gtr .COPIED_REM_TBL C.index + 1, ROW] 

| 

; 4289 

; 4 COPIED -REM_TBL C. pining. 0 RO CL en'$ y the bigger entry | 

: 4291 M_TBL “f . index, noth = COPIED C.index + 1, RO_CLJ; | 

; +53 CoP M_TBL C.index + RO_ CL) = . TEMP; M put the Slane entyr in next entry 

; ? end; 

: £395 end; | 

2 i 

; 1599 end; | 
| 


con -SBTTL ROW.SORT ROUTINE DECLARATIONS 
R1 vES : 4227 


011116 =( 
tT lil ; LST.REM.ENTRY,* 4263 







: PASS 4272 


aes ; 
1$: R 


: PASS,* 
RI 


: INDEX 

R5 : INDEX,* 4287 
001712° eae TAL .R2 
Re 
om 

1 000001 
000002 
000002 

3$: 

1 4$: 


: INDEX,* 
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011 39 00 3 


011932 5$: 
011334 

O11 4 6$: 
01124 


: Routine Size: 45 words 


: Maximum stack depth per invocation: 8 words 





‘pkey act aguas 


é 
a ; PASS 
R35, (SP) ; PASS,* 


(SP) +, (SP)+ : 
PC 


Lyle 
1 (36) 
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56376165 


4272 


4227 
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ROUTINE DECLARATIONS 


routine S_BLAST_TBL (BNK_NUM) = 
begin 


+4 


bap tes sous 
BLAST 


oo all row and column 
oor be the blast cane for this — and 


i ; Puncetgans Description: 
rs) 


determine if a bank has any additional 
failing row or columns the blast table e is 
searched for any bits set. 


If bits are set then this bank must be 
‘ed. If no bits are set then his bank 


can be shigned. 


This global routine seorenes a ot eet table at 
the selected banks and sees ~ S its Te. . 
indicating new errors were eal n this ban 


Formal Parameters: 


NUM : 
+ Points to the bank to be searched 


_'BL, MAX_CHIP_COL 


Implicit Outputs: 
none 


Comptonten codes: 


rue indicator is returned if new errors 
nF and a false indicator is returned if 
no new errors are found. 


Side Effects: 
none 


blast information 
y new “ows 0 


columns o be 
blasted. "Tf Obl blast late is coe then 


urn true as the routines value else gag ll 


false indicating that no blasting is to be 
_for this bank. 


a from © co .MAX_CHIP_COL*2 - 1 do 


' Does this table location contain new 
: prom blast information? 


tha 


18: 


nO 
on™ 


oes 
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‘Look at all rows and cols for this bank 
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BSKELS 18-Mar-19 16:97:75 TOPS-20 Bliss-16 V2(212) Page 129 
REV 8 PATCH 00 ROUTINE DECLARATIONS ieoner=19 19:46:41 PA: <NEALE>PMSKL4.8L1.1 (37) SEQ 0164 
; 4350 
: 2 i if .BLAST_TBL C.BNK_NUM, .SEARCH, FULL_WRDJ neq ZERO then return TRUE; ‘Return tru if any bits set 
: 4355 return FALSE; ‘Return false if no bits are set 
3 4356 end; 

.SBTTL S.BLAST.TBL RCUTINE DECLARATIONS 
011244 004167 000000G S.BLAST.TBL: 

JSR R1,$SAVE3 s 4 
a. 50 00303 040376° MAX. CHIP.COL,R3 3 4 | 
011 1 000012 TBSP) .RO ; BNK.NUM,*« 4351 | 
011 oe | 
at 1 RO 
11 RO 
011 R1 3; SEARCH 4344 
011272 3$ 
011274 01 1S: ay oe 3 4351 
4. 76 ADD R1,R 3; SEARCH,* 
11 ASL Be 
a. 030372° TST T. TBL (R2) 
11 14 BEQ 
01131 1 000001 MOV #1,R0 
ay. 14 RTS “ 
11316 1 : INC R ; SEARCH 4344 
O11 103 : CMP R1.R3 : SEARCH,* 
011 7 BLT 1$ 
011324 CLR RO 3 4299 
011 RTS PC 3 4298 


; Routine Size: 26 words | 
: Maximum stack depth per invocation: 4 words 
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13 
, 


oe 
18-Ra 


routine SCONES (MOST_OFTEN, SUM_MOST LST_REM_ENTRY) = 
gin 


'o+ 
' Functional Description: 

The remainder table is searched for the 
best possible choice for b 
whether to select rows or columns for 
blasting. This is done by: 


lasting ie 


While searching through the rem_tbl count how 
ae different row numbers and column numbers 
re are. 


In the lower count group (default to rows if 
counts are equal) find which member appears 
most often. 


The member which appears most often in this 
oe aa group will be the one chosen for 
as . 


For example: 


uppose that these row column pairs 
exist in the remainder table. 


oa 


. Y 
Raid 
= 
100 1 
60 7 
2 10 


From this there are 5 different column numbers 
and 6 appears the most often and 


column 
it appears 4 times. 


Therefore DJF = 5 
MOST_OFTEN = 6 
SUM_ROST = 4 


Formal Parameters: 
MOST_OF TEN: 


Passed by reference and stores the most 
often found column. 


SUM_OF TEN: 


“1983 18:06:61 


TOPS-20 Bliss-16 V2¢ 
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woe 
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1 (38) 


ba 1 
SEQ 016 
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ROUTINE DECLARATIONS 
Peseee by reference and stores the sum 


of = most often found column. 
LST_REM_ENTRY 


“pet aoe 16:07 TOPS-20 Bliss-16 Vv2(212) 
18-Mar-19 PA: <NEALE>PMSKL4.BL1.1 (38) 


“Points to the last remainder entry 


Implicit 5 inputs: 


reference 


I itens “ft 
- T OFTEN: AND SUM_MOST which are passed by reference 
y 


= stRis routine is returned to the caller 


with the column number which appears most often and the 


r of times it appears. 
| complet fon codes: 


The number of different column numbers which were found 
in the remainder table is returned to the caller. 


i Side Effects: 
i none 


Start out the search by olan 
the current count. previous count 
and different count to be one. 


Also define the first table anery 

to be the column number to be ected 
for blasting. 

This is done in the event that there 
is only one table entry left to be 
selected for blasting. 

CUR_SUM = 1; 


= 1; 
PRE-MOST = -REM_TBL CZERO, COLI: 






.+ 
' If only one table entry is remaining 
in the. table then return with the default 





‘Stores current sum of most often found column 
‘Stores previous sum of most often found column 
‘Stores current most often found column 

‘Stores previous most often found column 
‘Stores how many different columns were found 


‘Current sum starts at one 

iPreyious sum starts at onc 

iPreyious most often starts at first column in table 
‘Different column count starts at one 


' values Setined above as the routines return 


' values. 
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4461 !- 


446 ae -LST_REM_ENTRY gtr ONE ‘First table entry is most oftem if table entry < 1 


"be 
44 coe. SORT (.LST_REM_ENTRY); ‘Sort the column side of remainder table 


i 
i a 

4470 ' of time its found. Also search m . table 
: fo for the umber 
i 


4475 ter Segoe from 0 to .LST_REM_ENTRY = 2 do 'Find the sum, most often and different 
egin 


4478 i Is this table position contents the same as the 
4479 ; next table contents? 


4482 + -REM_TBL C.index, COL] eql .REM_TBL C.index + 1, COL] 'Is this the same as the next 
4485 are MOST = .REM_TBL C. —_ COL); ‘Most often is this airy 
486 CUR. SUM = .CUR_SUM + ‘increment the sum of the mo 
else 
4489 begin 

DIF = .DIF + 1; ‘Increment the different column count 
4492 2 -CUR_SUM gtr .PRE_SUM ‘Is the current sum > previous sum 

in 

4495 "begin SUM = .CUR_SUM; ‘Save the sum of the current most often 
$036 PRE “MOST = .CUR_MOST; ‘Save the current most often 


4499 CUR_SUM = 1; | ‘Start current sum back to one 
4500 end; 


450 end; 
end; 


4 ' 
4507 i This test to see if the last set of 
unique column numbers in the table is > the previous sum 


; 44 


10 
4 7 -CUR_SUM gtr .PRE_SUM 'Is the current sum > the previous sum 
en 





13 
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: 4513 begin 
: 4514 PRE_SUM = .CUR_SUM; 'Save the sum of the current most often 
: 4515 PRE-MOST = .CUR_MOST; iSave the current most often 
: t21$ end; 
; 4518 -MOST_OFTEN = .PRE_MOST; ‘Return the most often found column 
: 4519 ~SUM_MOST = .PRE_SOM; ‘Return the sum of the most often column 
: +259 return .DIF; ‘Return the different number of columns found | 
; 4521 end; | 
.SBTTL S.COLUMNS ROUTINE DECLARATIONS | 
011330 004167 000000G S. COLUMNS: 
JS R1,$SAVE5 ; 4357 
011334 024646 (SP) ,-(SP) 
011336 012701 000001 #1,R1 3: *,CUR.SUM 4451 
011342 010105 R1,R5 : *, PRE.SUM 4452 
011344 005046 =( * PRE.MOST 3 
011346 116716 001402" REM. TBL, (SP) 3; *,PRE.MOST 
011352 012766 1 #1,2(SP) : *,DIF 4454 
011360 016604 000024 24(SP) ,R4 : LST.REM.ENTRY,* 4463 
011364 020427 000001 R4,A1 
011370 003444 
011372 010446 R4,-(SP) § 4466 
011374 004767 177364 PC,COL.SORT 
011400 162704 2 #2 ,R4 $ 4475 
011404 005008 : INDEX 
011406 0004 
011410 O1esos 1$: RS : INDEX,* 4482 
011412 006303 
atale 096500 R2,RO ; INDEX,* 
0114 126 001402° 001404° REM. TBL(R3) REM. TBL+2(RO) 
011426 001007 
0114 116366 001402" 000006 REM. TBL(R3) .6(SP) : *,CUR.MOST 4485 
011436 105 000007 7(SP) : CUR.MOST 
011442 005201 R1 s 4486 
011444 000412 4$ ; 4482 
011446 005266 000004 2$: 4(SP) : DIF 90 
asees 020105 R1,R5 : CUR.SUM,PRE.SUM 4492 
Abyss pigsee R1.R5 : CUR.SUM,PRE.SUM 4495 
011 1 000006 000002 6 (SP) ,2(SP) > CUR.MOST,PRE.MOST 9% 
OT 1686 mee 000001 3$: #1,R1 >: *,CUR.SUM 4499 
0114 005202 4$: : INDEX 4475 
011474 020 5$: R2,R4 s INDEX,* 
011476 003744 1$ 
011500 ehh (SP)+ ; 4465 
011502 0201 6$: R1,R5 : CUR.SUM,PRE.SUM 4511 
011504 3403 7 
011506 010105 R1,R5 : CUR.SUM.PRE.SUM 4514 
011510 016616 000004 4(SP), (SP) : CUR.MOST,PRE.MOST 4515 
i 
| 


| 
| 
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011380 000207 


: Routine Size: 


65 words 
; Maximum stack doth per invocation: 


7$: 
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rout ine |S ROWS (MOST_OFTEN, SUM_MOST, LST_REM_ENTRY) = 

n 


'++ 
' Functional Description: 

This global routine has the same functionality 
as search columns except that the copied 
remainder table is searched for row numbers. 


Formal Parameters: 
MOST_OF TEN: 
Passed by reference and stores the most 
— found row address. 
Passed by reference and stores the sum 
of the most often found row address. 
LST_REM_ENTRY: 
Points to the last copied remainder entry 


NOUS wit 


—_ 


wa 


SUM_OF 





MAA AM MAA MIAMI 


FEES 


Implicit inputs: 
MOST_OFTEN AND SUM_MOST which are passed by reference 
to this routine is returned to the caller by reference 
with the row number which appears most often and the 
number of times it appears. 


Completion codes: 
The number of different row numbers which were found 
in the copied remainder table is returned to the caller. 


Side Effects: 
none 


BSSEXE 
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229 
324 
555 local 
5 CUR_SUM, ‘Stores current sum of most often found row 
55 ‘Stores previous sum of mo: often found row 
558 CUR-MOST, iStores current most often row f 
55 PRE _MOST, ‘Stores previous most often row found 
r+ DIF; 
$208 ! 
ror ' Start out the search by defining 
4 ' the current count, previous count 
eee? and different count to be one. 
teee i Also define the first table entry 
$288 ' to row number to be selected 
$299 for blasting. 
4571 i This is done in the event that there 
45 ' is only one table entry left to be 
457 ' selected for blasting. 
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' 

CUR_SUM = 1; 

PRE_SUM = 1; 

PRE MOST = “COPIED_REM_TBL CZERO, ROW); 


1+ 
i If only one table entry is remaining 
i in the table then return with the default 
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‘Current sum starts at one 

‘Previous sum starts at one 

‘Previous most often starts at first table enrry 
‘Different row count starts at one 


' yalues defined above as the routines return 


values. 
if .LST_REM_ENTRY gtr ONE 
then 


8 
R SORT (.LST_REM_ENIRY) ; 


‘First table entry is most often if table entry < 1 


‘Sort the row side of copied rem table 


Index thr the table and pearen for 


the row most often found 


er 


the number of different row numbers 


i 

and t 

| or time its found. Also aiarek the table 
i 

] 


tner nes from 0 to .LST_REM_ENTRY = 2 do ‘Find the sum, most often and different 
egin 


i Is this table position contents the same as the 


next table contents? 


4 -COPIED_REM_TBL C.index, ROW] eql .COPIED_REM_TBL C.index + 1, ROW] 
ie 


ate MOST = .COPIED REM TAL C. index, ROW): ‘Most often is this entry 


CUR_SUM = .CUR_SUM” 
end 
else 
9 n 
DIF = .DIF + 1; 
if .CUR_SUM gtr .PRE_SUM 
then 


in 
Pee AOsT = COUR MOST: 
end; 


CUR_SUM = 1; 
end; 








‘Increment the sum of most 
‘Increment the different row count 
‘Is the current sum > previous sum 


'Save the sum of the current most often 
‘Save the current most often row 


‘Start current sum back to one 
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end; 
end; 
' 
i This test to see if the last set of 
unique row rs in table is > the previous 
ee GTR .pre_sum ‘is the current sum > previous sum 
in 
_SUM = .CUR_SUM; 'Save the sum of the current most often 
PRE OST = .CUR_MOST; ‘Save the current most often row 
-MOST_OFTEN = .PRE_MOST; ‘Return the most often found row 
.SUM_MOST = .PRE_SOM; ‘Return the sum of the most often found row 
return .DIF; ‘Return the number of different found rows 
-SBTTL S$.ROWS hla: DECLARATIONS 
0000006 S.ROWS: JSR R1, SSAVE ; 
CMP = = (SP) ,= (SP) 
000001 MOV oR ; *,CUR.SUM 
MOV R1,R5 : *,PRE.SUM 
CLR = = (SP) : PRE.MOST 
001713° MOVB COPIED.REM. TBL+1, (SP) ; *,PRE.MOST 
000001 000002 MOV 22(SP) ; *,DIF 
000024 MOV  26(SP),R4 : LST.REM.ENTRY,* 
000001 CMP #1 
BLE 
MOV R4,-(SP) : 
177310 JSR ROW. SORT 
000002 SUB RS : 
CLR 8 : INDEX 
1$: RS : INDEX,* 
Sa 3 INDEX,* 
001713" 001715° pada (R3) ,COPIED.REM. 1BL+3(RO) ; 
001713" 000006 Seen yh REM. TOL TERS) .6CSP) 3; *,CUR.MOST 
000007 7 ; CUR.MOST 
4 Rae 
000004 2$: 4(SP) : DIF 
R1,R5 3; CUR.SUM,PRE.SUM 
R1,R5 3; CUR.SUM,PRE.SUM 
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1661 
= 
1057 4 
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000 
Routine Size: 65 words 
Maximum stack depth per 
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is added to the count in all_bad. 

Completion codes: ; 
The value of all_bad which indicates how many all bad chips 
found thus far is returned. 


Side Effects: 
none 
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3 4646 routine S_REM_TBL (BAD_CHIP, ALL_BAD) = 
: 4647 begin 
: 4648 
: 4649 !+4+ 
$ 4650 '! Functional Description: 
; 4651 ! The remainder table is loaded with all the 
: 4652 ! remaining single cell failures scattered 
; 1837 through out this failing chip. 
: 4655! These scattered remaining row column pairs 
; 4656 ! are transfered into the remainder table 
: 4657 ! were they are interigated for the best possible 
: $028 blasting selection. 
; 4660 ! This global routine searches the remainder table of 
: 4661 ! the remaining row column pairs and determines 
; 1066 the best possible choice for blasting. 
5 4664 '! Formal Parameters: 
: 4665 ! BAD_CHIP: 
; 4666 ! Points the the failing chip presently 
: 4667 ! ing pm‘ed. 
; 4668 ! ALL_BAD: 
; ry é Counts how many all bad rows and columns 
4670 ! have been found thus far. If this count 
3 4671 ! exceeds a count of 10 for any one chip 
: 4672 ! then that chip is called an all bad chip and 
$ 46 : a ‘condition A‘ message is printed. If 
; 4674! two all bad oe ey discovered in the 
: 4675 ! the same bank t a ‘condition B° message 
; re oh : is printed and further testing of this 
: 4677 ! array is aborted. 
; 1075 ; Implicit Input 
: ' Implic Ss: 
: rer TMP_BLST. TBL 
: 4682 i Implicit Outputs: 
: 4685 ! The tonnerery blast table is loaded with a row 
$ ret: or column address selected for blasting. 
: 4686 The number of all bad row columns found by this routine 
° ' 
4 i 
3 i 
4 i 
: i 
4 i 
. i 
: i 


i699 local 


ee ee ee em er ee ee 


— ea 
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4698 LST_REM_ENTRY, ‘Points to last Ba By into remainder table 

ry 44 DIF-COLS, ‘Different no. 3 in remainder table 

4 DIF-ROWS, '‘Differnet no. of rows in remainder table 

yA ROW_MOST_OFTEN, ‘Most often found row in remainder table 

4 ; COL_MOST_OF TEN, ‘Most often found column in nemainder table 

470 ROW_ SUM, ‘Sum of the most often found row in remainder table 
rye. COL_SUM; ‘Sum of the most often found column in remainder table 
PA I_REM_TBL (); ‘Init the remainder and copied rem tables 

470 ist “REM_ENTRY = ZERO; ‘Last rem entry starts at zero 

4708 LST_REM_ENTRY = X_TO_REM_TBL (.LST_REM_ENTRY); 

rth 'Xfer column count bable to remainder and copied tables 
4711 '+ 

471 | Repeat searching the remainder and copied 

471 i remainder tables for the best choice of 

4714 ' blasting until all remaining row/column 

ri At _pairs have been selected for blasting. 

4717 

ris | vhilg. ST _RERLENTRY gtr ZERO do 'Search the remainder and copied table until empty 
4720 - 

4721 If the all bad count reaches 10 then 


End this routine and ne the all bad 
count else continue searchi the tables 


i 

$is8 this chip is concidered to be all bad. 
i 
for the best choice for blasting. 














472? ALL_BAD = .ALL_BAD + 1; 'Increment the all bad row / column count 
ln if .ALL_BAD gtr 9 ‘Is the all bad count > 9 

47 then 

4731 return .ALL_BAD ‘Exit and return the count of all bad row/col 
4732 else 

re a 

4735 Search the remainder and copied remainder tables and find: 

1539 1. Number of oi torent cote found in each. 

4738 ‘ ¢: Number of different rows found in each. 

4739 ' - The column number ceuts often found. 

4740 ' 4. The ara of times the | most often column number was found. 

4741 ' . The row number most often 

re . The number of ctlaes the most row number was found. 

4744 DIF_COLS = S_COLUMNS (COL_MOST OFTEN, - §o4~Sum SUM, .LST_REM_ENTRY); 

4765 he columns different, most Lften and sum 
4746 DIF_ROWS = S_ROWS (ROW_MOST_OF TEN, aby cuM. LST_REM_ENT 

roth ‘Find es rows Hitereni. most foten and sum 


Be Be Be Se Be Be Se Be Se Be Be Se Se Ge Se Se Be we Fe Se Fe oe FH Se Se Se Fe Be Fe Fe ae FH FH Se Se Ge Se Fe Be ae Se ee we BH ee Se Oe Oe Be Oe we we 
~ 
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wi 


4749 If occurances of unigue row numbers occured 
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ih 


' more often then did columns numbers then choose 
: rows for blasting else pick columns for blasting. 


if .DIF_ROWS leq .DIF_COLS 
then 






ROW_ (.R 
LST_REM_ENTRY = 
end 


‘Are different rows < different columns 


PSP BLST_TBL [.ALL_BAD, RCI, = SET£LG: tindicate this ig 2 bad r 
-ALL~BAD, R NO} = 0 ‘Load he “failing row no. 
-ALL~BAD NIS™ NO CHIP74; Load the failing nibble position 
_MOST_OFTEN, — "ROW. sin ful _REM_ENTRY); ‘Purge this row from table 


~ LST_REM_ENTRY = .ROW_SUM; po the pointer 


C.ALL_BAD, R_C) =_CLR_FLG; !Indicate this is ° aan colums 





»ALL_BAD, R_C_NOJ] = .COL_MOST the failing column no. 
TMP-BLST_TBL C.ALL_BAD, NIB_NO] = .BAD_CHIP74; ‘Load the fai ting nibble position 
3 VER CZMLCB ADDED *.* TO LST_REM_ENTRY 
COL_PURGE (. COL_MOST OFTEN, .COL_SUM, .LST_REM_ ENTRY); ‘Purge column form talbe 
st. REM_ ENTRY =.LST ~REM_ENTRY - .COL_SUM; 'Re align pointer 
e 
end; 
end; | 
are -ALL_BAD; ‘Return the number of all bad rows/columns found 
end: 
-SBTTL S.REM.TBL ROUTINE DECLARATIONS 
0000006 S.REM.TBL: 
JSR R1,$SAVE5 : 4646 
000010 #10.S 
173230 pC, 1.REM. TAL : 4706 
R : LST.REM.ENTRY 4707 
(SP) $ 4708 
175644 PC ,.X.TO.REM. TBL 
oR2 ; *,LST.REM.ENTRY 
1$: R : LST-REM-ENTRY 4718 
000030 30¢ (SP) ; ALL.BAD 4727 
000030 (SP) R35 ; ALL.BAD,* 4729 
000011 BBA Ail 
(SP) + : 4731 
R3,RO 
000012 2$: #12,-(SP) 3 4744 
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01 16 ADD : COL.MOST.OFTEN,* 

g1 012746 000012 MOV 

01 16 ADD : COL.SUM,* 

01 10246 * LST.REM.ENTRY,* 

01 ? 177274 

01 1 : *,DIF.COLS 

01 12716 000012 3 4746 | 
01 16 * ROW.MOST.OFTEN,* | 
01 46 000012 | 
01 16 ; ROW. SUM,* | 
01 46 * LST.REM.ENTRY,* 

01 67 177452 

01 RO.R : *,DIF ROWS 

01 44(SP), (SP) : BAD. CHIP,* 4759 
01 pC BL 1V 

01207 R F 4757 
0121 #TMP.BLST.TBL.R3 

ot i R1,R4 : DIF.ROWS PIF.COLS 4754 
01 138 (R3) : 4757 
ot 116 »,R5 * ROW.MOST. OFTEN, * 4758 
121 

12124 
0121 R5 

0121 #170017,R5 

0121 #7760, (R3) 

01 140 RS, (RS) 

01214 : 4759 
on 166 B1CB 

1215 BISB 

012154 MOV : ROW.MOST.OFTEN,* 4760 
12160 MOV : ROW.SUM,* 

12164 MOV > LST.REM.ENTRY,* 

1 166 JSR 

0121 SUB : ROW. SUM. LST.REM. ENTRY 4761 
01217 BR : 4754 
1 3S: BIC : 4765 
1 MOV 24(SP) ,R5 * COL.MOST.OFTEN,* 4756 
1 19 ASL R5 

01221 ASL Rd 

12216 ASL R 

1221 ASL R5 

1 BIC #170017 R5 

12224 BIC #7760, (R3) 

1 BIS R5 (RS) 

1 BIC #17 760 RO : 4767 
1 BICB 40s #17, (R33 

1226 BISB , (R3) 

012264 MOV 4(SP) ,-(SP) : COL.MOST.OFTEN,* 4771 
012250 MOV 4(SP),-(SP) > COL.SUM,* 
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3 LST.REM.ENTRY,* 


COL .SUM,LST.REM.ENTRY 


ALL.BAD,* 
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routine S_COL_CNT_TBL (BAD_CHIP, ALL_BAD) = 
begin 


2) 


21 
~1 (41) 


lee 
Functional Description: 
The column count table stores a count of 
adjacent failing columns when the error 
map is searched for bad rows. 


This global routine searches the column count 

table for column counts greater than 10. 

If a count of ae ee than 10 is found then this is 
called an all bad column the temp 

blast table is loaded with this columns 

number. column count table at this 

all bad column number is then cleared. 


Formal Parameters: 
BAD_CHIP: 
Points a failing chip which is presently being 


' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

! 

° pm 

! ALL_BAD: 

! Keeps count of how many all bad row and or columns 
! are found for this yh ¢ f this count count 
exceeds 10 then this chip is called a all bad 
! 
i 
i 
' 
i 
' 
' 
' 
i 
' 
i 
i 
i 
i 
i 
' 
' 


chip. 


Implicit Inputs: 
- TMP_BLST.TBL, COL_CNT_TBL 


Implicit Outputs: 
The temporary blast table is loaded with a row 
or column address selected for blasting. 


The number of all bad row columns found by this routine 
is added to the count in all_bad. 


Completion codes: ; 
The value of all_bad which indicates how many all bad chips 
ound thus far is returned. 


Side Effects: 
none 


14 

' Search through the column count table and 

' find column numbers which were found bad 

' more than 10 times. Columns which errored 

' more than 10 times will immediately by chosen 
for blasting. 
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BSKEL4 1 nner 10as 16:07:57 TOPS-20 Bliss-16 V2(212) 
REV 8 PATCH 00 ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.B8L1.1 (41) 
: 4833 
: cB3 incr COL_NUM from 0 to .MAX_CHIP_COL - 1 do ‘Search thru the column table 
; re 5 begin 
3 4837 ' See if this column r was found 
; 2 5 in error greater than 10 times. 
: 4840 ' If it was then up the all bad count, 
; 4841 ' load the temporary blast table with this 
: 484 ' column number and clear this table position 
: caer of this column number. 
; 4845 
; 4 if .COL_CNT_TBL C.COL_NUMJ gtr 10 ‘Is this locations count > 10 
. 484 then 
: 4848 bopte 
; $38) AL BAD = .ALL_BAD + 1; ‘Increment the all bad row/col count 
: 4851 ' Jf the all bad count is equal to 
; rtf ' 10 then exit this routine with the 
: 485 ' all bad count else load the temp blast 
: 4854 ' with this column number. 
; 4855 ! 
; 4856 ; 
: rth 4 eALL_BAD gtr 9 'Is the all bad count > 9 
: 4859 return .ALL_BAD ‘Exit and return all bad count 
; 4860 ise 
: 4861 begin 
; 486 TMP_BLST_TBL C.ALL_BAD, R_C] =_CLR_FLG; !Indicate that this is a bad column 
: 486 TMP_BLST_TBL C.ALL_BAD, R_C_NOJ = .COL_NUM; ‘toad the bad column number 
; 4864 TMP_BLST_TBL C.ALL , NIB_NO] = -BAD-CHIP/4; ‘Load the failing nibble position 
: 4865 COL-CNT_TBL C.COL_RUM) = ZEROES; ‘Clear the table of this bad column 
3 4866 end; 
3 4867 
: 4868 end; 
; 4869 
3 4870 end; 
3 4871 
; 487 ! 
: 487 ' If the all bad count did not reach 
: 4874 ! 10 then do a normal exit here with 
: rt 6 the present value of all bad count. 
: 487 return .ALL_BAD; ‘Exit and return the number of all bad rows/cols 
: 4878 end; 
.SBTTL S.COL.CNT.TBL ROUTINE DECLARATIONS 

012310 004167 000000G §.COL.CNT.TBL: 

2 JSR R1,$SAVE2 ; 
012314 005002 CLR R2 ; COL.NUM 
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BSKEL4 
REV B PATCH 00 


: Routine Size: 
; Maximum stac 


sareseesee 
eon wank eed wee 


aage 
RS 


ROUTINE DECLARATIONS 


001002" 000012 1$: 


2$: 


3$: 


040376' 4$: 


: 53 
k dep 


words , 
th per invocation: 5 words 





a1 


é 
lat 
18-Mar-19 


MDW & 


ST.TBL,R1 


60 ,(R1) 


DDDDDRwRD VD 


RO 
R1) 


+ 50 Wt 
~— 
ae = 
S58 
— 

i | 


COL. CNT. TBL(R2) 
(SP)+,(SP)+ 


R2,MAX.CHIP.COL 
10(SP) ,RO 
PC 


TOPS=20 Bliss-16 Vv2(212) 
PA: <NEALE>PMSKL4.BL1.1 (41) 
; *(COL.NUM) ,* 


; ALL.BAD 
3 ALL.BAD,* 


3 COL.NUM,* 


: BAD.CHIP,* 


* (COL .NUM) 


COL .NUM 
COL .NUM,* 


ALL.BAD,* 
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4846 
4782 
4781 


ee eS TT TT 


N 14 
BSKELS a 19:97:34 TOPS-20 Bliss-16 V2(212) Page 147 
REV B PATCH 00 ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 PA:<NEALE>PMSKL4.BLI.1 (42) SEQ 0182 


4879 


routine S_ERROR_MAP (BAD_CHIP) = 
begin 


of times column pairs are detected failing. 


4882 !+ 

: 4883 '! Functional Description: 

; 4884 ! The error map is loaded with all the 

; 4865 ! failing row numbers at thier failing 

: ett sector addresses. 

: 4888 | This global routine searches the error map for 

: rt occurances of bad rows. 

: 4891 | When a bad row is found a bad row count 

; 4892 ! is incremented and a bad column count 

: 4895 ! at the adjacent failing column is also 

: rt incremented. 

: 48 i If the row count exceeds 10 then this is 

5 4897 ! called an all bad row and the row number is 

: 4898 =! loaded into the temp blast table. The adjacent 

§ ret failing column count is decremented by one. 

: 4901 ! If after search tag the error map the bad row 

; 4902 ! does not exceed 10 then the progran goes on to 

: 49035 ! the next row and the failing column count are 

3 4904 ! left alone. 

; 4905! 

: rts Formal Parameters: 

: 4908 ! -""" Points to a failing chip presently being 
4909 =! pm’ed. 

4910 ! ? 

: 4911 ! Implicit Inputs: 

; 1316 ERROR_MAP, COL_CNT_TBL. COL_PTR, TMP_BLST_TBL 

: 4914 | Implicit Outputs: 

E 4915 ! The temporary blast table is loaded with a row 

; 2318 ; or column address selected for blasting. 

: 4918 ! The number of all bad row columns found by this routine 
; rh 4h is added to the count in all_bad. 

: 4921 | Completion codes: 

$ 49 ! The value of all_bad which indicates how many all bad chips 
3 rh Z found thus far is returned. 

; 4925! The error map is searched for failing rows addresses 
3 rt and they are cleared if set. 

: 4928 : The column count table is incremented with the number 
4 i 





A A Se TS LS a I 


REV 6 


awe 


4931 
4 


PATCH 00 ROUTINE DECLARATIONS 
' Side Effects: 
' none 





ALL 
.¢ "CNT. Tai Q); 


I 
2 
i Determine which type chip this 
i is and define this routines run 
: time parameters. 


4 ae ~BNK_NUM_SEC eql 127 


in 
BO PAIR LOOP = 0; 
QD"NUM_SEARCH = 0; 





ane om 
OD “PAIRSLOOP = 15 
end; 
QD_OFFSET = 2; 
incr QD_LOOP from 0 to .QD_PAIR_LOOP do 
QD OFFSET = .QD_OFFSET + 2; 
incr ROY from 0 to 127 do 


ROW_NUM/16; 
“ROW-NUM mod 16: 





INDEX = 
BIT_INDEX = 
begin 


18-Mar-1982 15:44:41 


‘Leave loop label 


word where this row resides 
fay map word where this bit resides 
‘Count o ound 


iPointer into to ag hy olan pointer table 

‘Stores the celeulated | adlacent aaa column number 
‘Selects many rants to at 

‘Selects how many rants to tes 

‘Off set use in calculating which: quadrant to test 
‘Starting sector variable 

‘Ending sector variable 

'Stores how many all bad chips are found 


‘Start all bad at -1 this value gets returned 
‘Init the column count table 


‘Stores the error 
: Stores gy hg Be. bit of 


‘Is this a 16k chip 


'16k chips only have one quadrant to test 


'64k chips have four quadrants to test 


‘Start the offset off at -2 
‘Loop on two quadrant pairs 

‘Up the offset by two 

‘Search all words in this sector 


‘Calculate which word this row is in 
‘Calculate which bit in word this row is in 


PA: <NEALE>PMSKL4.BL1.1 (42) SEQ 01 


ee ee _—— - 
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MISS 3299252888 


A ee ee ee 


td ad ad od od 
wn 
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# 
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BSKELS 18-har=1982 19:97: 7 
REV B PATCH 00 ROUTINE DECLARATIONS r-1982 15:44:41 PA: <NEALE>PMSKL4.BL 


incr QD_SEARCH from 0 + .QD_OFFSET to -QD_NUM_SEARCH + .QD_OFFSET do 
‘Search both quadrants” in this pair 


begin 


case + 1 eaeaaaat from 0 to 3 of !Which quadrant are we in 
se 


1.1 (42) see 90184 


[0] : a. ‘Wwe are in the first quadrant or just a 16k part 
ROW_CNT = ZERO; ‘Row starts at 0 for the first quad search 
PTR = -1; 'The pointer starts at - 

1 COL_PTR (); iInit the column pointer table 
START SEC = 0: iQuad 0 sectors start at 

SEC = 127: ‘Quad 0 end sector ends at 127 
arr 

[1] : ‘Wwe are in quadrant 1 
ey Me 
START_SEC = 7 ‘Quad 1 sectors start at £,9°° 
END_SEC = 385; ‘Quad 1 sectors end at 3 
end; 

C2) a “ ‘We are in quadrant 2 

_CNT = ZERO; ‘Start the row count at zero 
“= -1; 'Reset the pointe 
I_COL_PTR ( iInit the column rpetnter table 
START SEC = size: iQuad 2 sectors start at 128 
END_SEC = 255 ‘Quad 2 sectors end at 255 
end; 

[3] : ‘We are in quad 3 
shat SEC = 384; ‘Quad 3 sectors start at 384 

ND_SEC = 511; ‘Quad 3 sectors end at 511 
tes: : 


incr SEC_NUM from .START_SEC to .END_SEC do 
begin 


if .ERROR_MAP C.SEC_NUM, .WRD_INDEX, .BIT_INDEX, ONE, ZERO] eql 1 


then 
begi 


n 

ROW. CNT = .ROW_CNT + 1; !Up the bad row count 

oh -ROW_CNT gtr 9 'Is there > then 10 bad rows 
en 


bests 
ALL_BAD = .ALL_BAD + 1; 


'Up the all bad count 


'Search thru all sectors for this quad 


'Is this row bit set 
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TOPS=20 Bliss-16 vetele) Page 1 
18-Mar-19 


begin 
TMP_BLST_TBL C.ALL_BAD, R_CJ = SET_FLG; !This is a bad row 
eotecsens ~SEC_NUM of !Find which row number this is 
CO to 127, 256 to 383] : 
TMP _BLST_ TSL C.ALL _BAD, R_C_NOJ = .ROW_NUM; 
(128 to 255. 384 to 511] : 
TMP _BLST_ TBL f° ALL _BAD, R_C_NOJ 
tes; 
TMP_BLST_TBL C.ALL_BAD, NIB_NOJ = 


incr index from P te R go ‘Decrement the column counts 
COL_CNT_TBL C.COL “PIR indexJ] = .COL_CNT_TBL C.COL_PTR C.index]] - 1; 


2 -QD_PAIR_LOOP oq 0 '!Clear the quad of this roww 


-ROW_NUM + 128; 


~BAD_CHIP/4; !Find which nibble its in 


incr CLR_SEC_ROW from 0 to 127 do 
ERROR_MAP C.CLR_SEC_ROW, .WRD_INDEX, .BIT_INDEX, ONE, ZERO] = CLR_FLG 


else 
if .QD_SEARCH leq 1 
tnen 
begin 
incr CLR_S from 0 to 127 do 
le SEC_ROW, .WRD_INDEX, .BIT_INDEX, ONE, ZERO] = 
see CLR_SE from 256 to 3835 do 
ae ERROR MAP CLR_SEC_ROW, .WRD_INDEX, .BIT_INDEX, ONE, ZERO] = 
end 
else 
begin 


incr CLR. SEC EC ROW fe from 128 to 255 do 
eRnoe n AAP CLR_SEC_ROW, .WRD_INDEX, .BIT_INDEX, ONE, ZERO] 


incr CLR_SEC_ROW from 384 to 511 do 
ERROR_MAP PctR SEC ROW ~WRD_INDEX, .BIT_INDEX, ONE, ZERO] 


150 
44:41 PA: <NEALE>PMSKL4.B8L1.1 (42) SEQ 0185 
7s ALL.BAD gtr 9 !Is there > 10 all bad rows/columns 
n 
return .ALL_BAD 'Exit and return the the count 
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a te ae ee ee ees oe 
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18-Mar-1982 16:07:57 TOPS=- iss-1 (212) 
18 r es 19207377 OPS-20 Bliss-16 V2(212 


-Mar-19 PA:<NEALE>PMSKL4.BL1.1 (42) 
end; 
~oane A; '‘Leave the loop and do the next row number 
on 
begin 
cotaeoee -SEC_NUM of Increment the adjacent column count table 
[% to 127] : 
COL. INDEX = .ROW.NUM + .SEC_NUM; 
if .COL_INDEX geq 128 then COL_INDEX = .COL_INDEX ~ 128; 
end; 
C128 to 255] : 
COL. INDEX = .ROW_NUM + (.SEC_NUM = 128); 
if .COL_INDEX geq 128 then COL_INDEX = .COL_INDEX - 128; 
end; 
[256 te 3853 : 
COL_INDEX = .ROW_NUM + (.SEC_NUM = 128); 
if .COL_INDEX geq 256 then COL_INDEX = .COL_INDEX - 128; 


end; 
(384 to 511] : 
COL INDEX = .ROW.NUM + (.SEC_NUM - 256); 
if .COL_INDEX geq 256 then COL_INDEX = .COL_INDEX - 128; 


tes; 
COL_CNT  TBL C.COL_INDEX] = .COL_CNT_TBL C.COL_INDEX] + 1; 


er m ¢ Is 
COL_PTR C.PTR] = .COL_INDEX; 
enc; 


end; 
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vi 


cee me cee cee ed ed eed eed ed od ed 
VS ee ee ee 
COOWDBNAUSWN—OD 


Bee Se Se Se Se Be Oe Se Oe Bee 
MIVIVMIMMVIVMIVIVIVIVW 


01 166706 
012472 01 766 
01 00476 
012504 026727 
01 001005 
012514 005066 
01 005066 
012524 000406 
012526 012766 
012534 012766 
012542 012766 
012550 005066 
si Ble 
ieee Sect 
003 





10346 
ioe 
a7 006 
1 1 316 
Ot 1274 
1 76 
1 10066 
1 1 
1g sss 
O12662 006803 
1 7 
1 10 
1 
012676 000114 


er Eee 
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end; 


end; 


end; 
end; 


end; 


return .ALL_BAD; 
end; 


172454 
040416° 000177 


15 
r-19 


BS 19:07:27 


~SBTTL S.ERROR.MAP ROUTINE DECLARATIONS 






F 
a a 
18-Ma 

S.ERROR.MAP: 

JSR R1,$SAVE5 

SUB #32,SP 

MOV 1.10(SP) 

JSR Pc,1.COL.CNT.T 

CMP BNK.NUM. SEC .A1 
1$: 

2$: 

$: 

' 6(SP) 
6(SP) 

4$: 

,6(SP) 
5$: 
BRS) PC 
6$: we : 





10$-6$ 


SE ee ee 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (42) 


* ,ALL.BAD 


QD.PAIR.LOOP 
QD .NUM. SEARCH 


*,QD.PAIR.LOOP 


; *,QD.NUM. SEARCH 
ET 


; *,QD.0FFS 


- INDEX 
QD.OF FSET .QD.SEARCH 

- SEARCH 
S 


QD. SEARCH,* 
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PS 
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— 
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ROUTINE DECLARATIONS 
928 anor 
Sti 

9 000020 
SOY HE 
$90 conor 
enone 
000 900030 


00777 900020 
000022 


001150 


000014 
010230° 
000014 
000001 


000011 


000011 


7$: 


148: 


15$: 





G 15 


1Bemar=1989 18:46:4 


32(SP) 
#=1,10(SP) 
PC,1.COL.PTR 
sp 
#177,20(SP) 


He § (SP) 
(SP) 


#ERROR MAP. RO 
=(SP) 
14(SP) ,-(SP) 
#1,-(SP) 


PC-BLSGT2 
#10,SP 


(SP) 
(SP) #11 


4$ 
; SP) 





————- — —— ee =< 


TOPS=-20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 (42) 


Se Be Ge Be Ge Se Se Ge Ge Se Ge Ge Ge Se Ge Ge Fe Se 


ROW. CNT 
R 


«PT 


START. SEC 
* .END.SEC 


* UTART.SEC 
» ,END.SEC 


ROW. CNT 
*,PTR 


; stp ake’ 


; *,END.SEC 


; *,START.SEC 


« END. SEC 
START. SEC, SEC.NUM 
SEC .NUM 

SEC.NUM, * 

WRD. INDEX, * 

BIT. INDEX,* 


ROW. CNT 
ROW.CNT,* 


ALL .BAD 
ALL.BAD,* 
ALL.BAD,* 


SEC .NUM 
SEC .NUM, * 
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BSKEL4 18-Mar-1982 16:07:57 TOPS-20 Bliss-16 V2(212) Page 154 
REV 8 PATCH 00 ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 | PA:<NEALE>PMSKL4.BL1.1 (42) SEQ 0189 
013200 020527 000400 16$: CMP RS5.#400 : SEC.NUM,* 
01 4 3 BLT 138$ 
013 06 000577 CMP R5.#577 : SEC.NUM,* 
01321 BGT 18$ | 
013214 17$: MOV R3,R2 3 ROW.NUM,* 5046 | 
013216 1 BR 21$ | 
1 0 05 7 000200 18$: CMP R3 .#200 : SEC.NUM,* 5042 | 
O15 0 $53 000377 COP RS #377 : SEC.NUM,* | 
01 000600 19$: CMP e #600 : SEC.NUM,* 
01 40 7 BLT ees 
01324 27 000777 CMP R5 A777 : SEC.NUM,* 
013246 4 BGT ees 
013250 010 20$: MOV R3_R2 : ROW.NUM, * 5049 | 
013252 062 000200 ADD #200,R2 
013256 21$: ASL R 
01 ASL R 
013 ASL R 
01 ASL R 
01 70 170017 BIC #170017.R2 
01 042714 007760 BIC #7760, (R4) 
013276 214 BIS R2, (R4) 
O15 016646 000056 22$: MOV 56(SP) ,-(SP) : BAD.CHIP,* 5052 
SHES Quere® Saeen Baal 
13314 04 50 177760 99560 RO 
1 142714 000017 #17, (R45 
013324 150014 RO. (RA) 
013 005002 R : INDEX 5054 
013 00041 24$ 
01 5 23$: R4 : 5055 
ot 1 6 002222" COL.PTR(R2) .RO > *(INDEX),* 
013342 1366 001002" COL. CNT. TBL(R4) RO 
01 005300 
013350 110064 001002' RO,COL.CNT.TBL(R4) 
54 : INDEX 5054 
000014 24$: 14(SP) : INDEX,PTR 
000034 3 4 (SP) : QD.PAIR.LOOP 5057 
R4 : CLR.SEC.ROW 5060 
25$: Ra .RO > CLR.SEC.ROW,* 5061 
RO 
000020 20(SP) .RO : WRD. INDEX, * 
010230° RROR.MAP RO 
RO.-(SP) | 
000020 20(SP) ,-(SP) : BIT. INDEX,* | 


ee wee ee ee ee 
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REV B PATCH 00 ROUTINE DECLARATIONS 18-Mar-19 PA:<NEALE>PMSKL4.BL1.1 (42) SEQ 0190 | 
013424 012746 000001 MOV #1,-(SP) 
OI Rea> Goats OER pe BLSPU2 | 
01 7 itt ADD #i6,SP | 
01344 INC R4 s CLR.SEC.ROW 5060 | 
01 7 000177 CMP R4 #177 * CLR.SEC.ROW,* | 
013450 751 BLE 5$ | 
013452 550 BR $ : 5057 
54 000012 000001 26$: CMP I (SP) ,#1 + QD. SEARCH, * 5064 
01 005004 CLR R4 : CLR.SEC.ROW 5068 
01 10400 27$: MOV R4,RO : CLR.SEC.ROW,* 5069 
01 ASL RO 
01347 ASL R 
013474 ASL R | 
ot 308 000020 ADD 20(SP) .RO : WRD. INDEX, * 
01 010230" ADD #ERROR.MAP,RO 
013510 01 MOV 0. P) 
013512 01 900020 MOV 20(SP) ,~(SP) : BIT. INDEX,* 
01 316 12746 1 MOV =(SP) 
0135 046 CLR - 
013524 4 0000006 JSR PC BL$PU2 
0135 062706 10 ADD #10,SP 
135 INC CLR.SEC.ROW 5068 
1 3 9204 7 000177 CMP R4.4177 * CLR.SEC.ROW,* 
1 751 BLE 
13544 012704 000400 MOV #400,R4 *,CLR.SEC.ROW 5072 
013550 01040C 28$: MOV R4,RO CLR. SEC.ROW, * 5073 
013552 00630C ASL RO 
013554 00630¢ ASL RO 
1 326 N04 306 ASL eB 
1 166600 000020 ADD (SP) RO : WRD.INDEX,* 
013564 06 500 ASL RO 
1 566 162700 010230' ADD RROR.MAP,RO 
13572 010046 MOV =(SP) 
13574 016646 000020 MOV (SP) ,=(SP) : BIT.INDEX,* 
1 912746 000001 MOV 1,=( 
: 004767 a hone 
1 0 76 900010" ADD 6. 
1 ite INC : CLR.SEC.ROW 5072 
1 020427 000577 CMP R4.4577 > CLR.SEC.ROW,* 
1 103751 BLE 
1 WONLéE Ae : 5064 
1 912704 000200 298 MOV #200.R4 > *, CLR.SEC.ROW 5080 
01040C 0s: MOV R4 RO ; CLR.SEC.ROW,* 5081 
1 106 30C ASL RO 


335 
3 
38 
a 
“ 
ea 
5 
o 
Benes 
S 
m 
eae 
t 


000020 ADD 20 SP) RO : ; . 
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REV 8 PATCH 00 ROUTINE DECLARATIONS ES 18i06321 PA: <NEALE>PMSKL4.BLI <1. (42) sea°6191° 
010230° ADD mieten 
MOV RO,=(S 
900020 MOV 20(SP) .=(SP) : BIT. INDEX,* 
1 MOV #1,-(SP) 
9000006 JSR PC BL$PU2 
wane INC #10,SP CLR. SEC.ROW 5080 
000377 CO R4 #377 + CLR.SEC.ROW,* 
000600 MOV #600,R4 : *,CLR.SEC.ROW 5084 
31$: mov R4,RO * CLR.SEC.ROW,* 5085 
ASL RO 
ASL RO 
000020 ADD 20(SP) ,RO : WRD. INDEX, * 
010230" ADD #ERROR.MAP ,RO 
MOV RO,-(SP) 
9 MOV 20(SP) ,-(SP) : BIT. INDEX, * 
1 MOY #1,-(SP) 
CLR -(§P) 
JSR PC BL$PU2 
- INC #0.SP CLR.SEC.ROW 5084 
000777 CMP R4 4777 > CLR.SEC.ROW,* 
BLE 31§ 
32$: CMP (SP)+, (SP)+ : 5090 
BR 41$ 
33$: TST R5 : SEC.NUM 5097 
BLT 34$ 
000177 CMP RS,#177 : SEC.NUM,* 
BGT 34$ 
MOV : SEC.NUM,COL. INDEX 5102 
ADD : ROW. * . INDEX 
000200 cw : COL. INDEX,* 5104 
BR 
000200 34S: CAP : SEC.NUM,* 5097 
000377 CWP : SEC.NUM,* 
MOV : SEC.NUM,* 5110 
ADD > ROW.NUM, 
MOV ; *,COL. INDEX 
atte SUB : *, COL. INDEX 
CMP : COL. INDEX, * 5112 
BLT 
000400 35S: CAP _— : SEC.NUM,* 5097 
000577 CMP RS,4577 : SEC.NUM,* 
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; Routine Size: 
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000177 
176326 

6 
176262 


000010 


000032 


459 words 
mum stack depth per invocation: 


36$: 


38$ 


39$: 


40$: 


41$: 


423: 
43$: 


44$: 


28 words 


37$: 








18-Mar=19 
18-Mar-19 


#200,R1 


+E ie TBL(R1) 


10(SP) 
10¢ 


Re 
40$ 
13s 
6(SP) 
6(SP) ,24(SP) 
41$ 
5$ 

SP 
R3,4177 
4 


20(SP) 


Sts 
6(SP) ,22(SP) 
44$ 


10(SP) .RO 
ys SP" 


SP), 
R1,COL. “BIR(RA) 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (42) 


: SEC.NUM,* 
; SEC.NUM,* 
5 SEC «NUM, * 
: ROW. 
; *,COL. INDEX 
* # COL. INDEX 
; core INDEX, * 

*, COL. INDEX 
* (COL. INDEX) 
PTR 
COL” INDEX, * 
SEC .NUM, END. SEC 


; QD.SEARCH 
; QD.SEARCH,* 


QD .LOOP 
QD.LOOP,QD.PAIR.LOOP 


ALL.BAD,* 


157 


sea 6192 


5118 


5120 
5097 | 
| 
5126 
5128 
5133 
5134 
5135 
5022 
4984 


4978 
4977 


4973 


4880 
4879 


BSKELS 
REV 8B PATC 


= 


MMIMMMMIM MMMM MIA AAA AAA AAAI 
wi 


014310 010146 
014312 016600 





isha! 1:07 TOPS-20 Bliss-16 V2(212) 
ROUTINE DECLARATIONS 18-Mar-19 PA: <NEALE>PMSKL4.BL1.1 (43) 


routine S_CHIP_TBL (START) = 
begin 


'o+ 
; Funct tenes Description: 
Th obal routine searches the bad failing table 
looking for fail Ling chips. When a fa 
i the failing chip number is 
returned. If no failing chip is found 
then a -1 is returned. 


i Formal Parameters: 
START: 


Indicates where to start searching 
in the bad chip table 


| Implicit Th: a 


| Implicit Outputs: 
none 


| Completion codes: 
e number of the next failing chip to be PM'ed 
=e returned or a -1 is returned if no —_—— chips 
remain in this bank to be tested. 


i Side Effects: 
none 


Search the chip table and 4 ye the 
next failing chip to PM. If one 
is found then return _ the caller 
that chip number else urn a -1 
to ledlcate that ali "he failing 
_chips have been PM‘ed 


+ 


incr TBL_INDEX from .START to 38 do ‘Search thru the chip table 
if .CHIP_TBL C.TBL_INDEX, FAULT] then return .TBL_INDEX; ‘Exit and return ndex 
return -1; ‘Exit and return -1 if no chip faults are detected 


-SBTTL S.CHIP.TBL ROUTINE DECLARATIONS 
S.CHIP.TBL: nt seme 





V ; 
000004 MOV 4(SP) ,RO * START, TBL. INDEX 
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SEQ 0193 


BSKEL4 
REV B PATCH 00 ROUTINE DECLARATIONS 


Ape 
acs Be 


014 

014 

014 an2 61 030230° 
014 

014 

014336 020027 000046 
01434 sp ta 24 

014344 AEA 177777 
014350 012601 

014352 000207 


: Routine Size: words 
: Maximum stack pit per invocation: 


1$: 


2s: 


3$: 


2 words 





~Mar-1982 1 
ie-talSi08 1 i 
RO 
2 
Ad. 
CHIP. TBL (RI) 
$ 
RO, #46 
#=1,R0 
(SP5+,R1 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BL1.1 (43) 


TBL. INDEX 
TBL. INDEX ,* 


ag I 


H NDE X 
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SEQ 0194 


5193 


Se eee eee 


ae ee 


ee ee 0 ee ees ee —— c= 


, 
——— SS 


—————oO~™Orrrrnm nn LaLa LLL. aS eras .- ees 


N 15 
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BSKELS is 
REV B PATC ROUTINE DECLARATIONS 1 


rout ine RD_OLD_PROM_DATA (ARRSBNK_SEL) : novalue = 
n 


=x 


e+ 

' Functional Description: 

: In order to perform Prom Maintenance on an 
array module the old prom data stored in the 
tested array must be read and saved into the 
error map where the new prom data found by 
this program can be OR‘ed with it. 


mts eee routine will read the old prom data 
stored in prom on the tested array into 
the error map. 





SRN 


Formal Cocgmeters: 
“Stores the array and bank sec.ect address. 


mr 


VIUPIPIPIPOPIPUNINININININININININININININY 
MEW 6 OS NAUE WN“ OVONOULSWN Oo 


RROR_MAP, RET_STATUS 


Implicit Outputs: 
The error is remagaed to look exactly Like 
the blast table and the old prom data in this 

» tested array is read into it. 


ome ceed ered weed cee’ od ed aed eh Wd 


Completion codes: 
none 


i 
i 
i 
i 
' 
t 
i 
! 
! 
! 
! 
' 
! 
baph tees Inputs: 
! 
i 
! 
! 
! 
! 
! 
! 
! 
! Side Effects: 
! none 
lee 
Local 
ADRS, 'S.ores the built prom address 
FINISH; ‘Incr loop ending variable 


i+ 
' To conserve memory space the ML-11 exercisers 

' write and read buffers are redefined te a 
contigious blockvector of 4 blocks of 512 words 
i 

i 


PUPUPUPUPU PUFA AAA AAA AAA AAA AAA 


each. This map declaration maps the exercisers 
1/0 buffers into this structure. : 


ma 
r ERROR_MAP : blockvector (4, 512] volatile; ‘Map the error_map the same as the blast table 


WVIMAMIVIVUIUIW 


MOMIMONMIPoNoNon 


Po SF OS OY oO 
ONOUSWR—O 


! 
' Define how many rows and column to read 
! out of the on board UV proms. 





--—— 


awLv | 


reser VV 


5249 
50 


SS BST AR UN OOo WO APU 2S Ooo orn ud 


ar 


IAM 


PUPP PUPP PUPP IAA IMA Aaa 









' 

if .BNK_NUM_SEC eql 127 then FINISH = 127 else FINISH = 255; 'Select the loops ending 
RD _PROM : ‘Enable prom reads 

PROM ADRS = ZEROES: 'Clear the pron address 

PROM_AD&S<11, 4> = .ARRSBNK_SEL<.ARR_SEL_POS, ARRS$S“t._SIZE>; !Select the array 

1+ 

' Read all old prom data stored in the on board 

' proms and store the prom data in the 

! error map at its respective error map 

location. 

incr + from 0 to 3 do ‘Read prom data for all four banks on this array 





n 
ADRS<10, 1> = ZERO; 'The first loop reads row prom data 
PROM_ADRS<8, 2> = .SEL_BNK; ‘Select the Doms bank position 


1+ 

! Within this bank of the on board proms 

' read all row prom data and store it into the 
! error map at its respective error map 
Location. 


incr ROW_NUM from 0 to .FINISH do ‘Read out all the prom row data 
n 

ADR 

( 


S<0, 8> = .ROW_NUM; 'Select the row address 

WRT_RH (MLPA, PA_REG, =PROM_ADRS) ; ‘Write the address to the mipa reg 
DELAY (ONE_US); ‘Wait for prom “te to clock into mipd 
ERROR_MAP T.SEL_BNK, .ROW_NUM, FULL_WRD] = .ML_ADDR CMLPD, PD_REGJ; 

‘Put the prom data into the error map 





end; 
PROM_ADRS<10, 1> = ONE; ‘This loop will read out the prom column data 


1+ 

! Within this bank of the on board proms 

' read all column prom data and store it into the 
' error map at its respective error map 

Location. 


incr COL_NUM from 0 to .FINISH do ‘Read out all the prom column data 
n 


OL_NUM; 'Select the column address 
-PROM_ADRS): ‘Write the address to the mlpa reg 
‘Wait for ‘= ata to clock into me 
SE, FULL_WRDJ = .ML_ADDR CMLPD, PD_ 
TLoad the error map with the prom data 





REG); 


BSKEL4 
REV B PATCH 00 


@e Fe Ge Se Gee 
VIMIVAVIW 
SSSSS 


014354 004167 


ooooooeo 
ered end wed ed woe ed od 
BORaEE 


ww 


oo 


ooo°ce 
esssssssssssc? 


PRESS RRRLLSRS 
Ron 
So 
: Sox 
Aue 


oooo 
MMMM 
eed et ee 
SMOn 
wi 


oO 

seat 
pow 
° 

woh 
Ww 
Sh 
roe 


ROUTINE DECLARATIONS 
end; 


040416" 000177 
000177 
000377 
040374" 
popnee 000016 


040374" 
00024 


000042 
040412° 
000004 


0000006 
103777 
074000 


176377 
003400 


RD.OLD.PROM.DAT: 
JSR 


3$: 


4$: 





16 


C 
RE BEB ISLE 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.8L1.1 (44) 


os 


‘Clear out the prom read mode 


-GLOBL LSDLY 


-SBTTL RD.OLD.PROM.DAT ROUTINE DECLARATIONS 


R1,$SAVES 
#22,SP 

BNK-NUM. SEC,#177 
#177, (SP) 

#377, (SP) 
ML.ADDR,R1 

24 (Ri), 16(SP) 
ML.ADDR,R1 

R 7 24(R1) 
#42,-(SP) 


. (SP 
ARR.SEL.POS ,-(SP) 
#4,-(SP) 


=( 

PC ,BLSGT2 
RO 

RO 

R 
#103777 RO 
& oR2 


R5 RS 


#176377 


Re 


& , FINISH 
* ,.FINISH 
* ,ML.REG 
* ,MLREG 


MLREG,* 
PROM. ADRS 


ARRSBNK.SEL,* 


* -PROM.ADRS 


PROM. ADRS 
SEL .BNK 
SEL .BNK, * 


* ,.PROM.ADRS 
* ,PROM.ADRS 
SEL.BNK,* 


; ROW.NUM 
; PROM.ADRS 
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SEQ 0197 


—s . 


5197 
5251 


_— 


5254 
5255 


5264 
5267 


BSKEL4 
REV B PATCH 00 


014542 


ecesseoeseseesesesseseoese 


S 


b= ] 

camel asad 

ES 
SSS 


© 
—— 


=] 
sy 
S= 
Sw 
_ } 


Wi I= On 


as 
SEaEe 


& 
SER 


estes 


ROUTINE DECLARATIONS 


040374" 

000020 000024 
040374" 

000020 

000001 

0000006 
000030 


040374" 
000046 000022 
000022 0102350" 
000010 
002000 


040374" 
000020 000020 
040374° 

000020 

000001 

0000006 


060030 


040372" 


040374' 
6 000016 
000016 0102350° 


000010 


5$: 


6$: 


7$: 
8$: 


9$: 


10$: 


11$: 
12$: 


13$: 
14$: 


15$: 





1gcRars194e 16:07 
RG ,R2 


“ADDR 
shia’ sh sp) 


mana 


LSDLY.RI 
taal 


= 
agin). $8 sp) 


(SP) ,ERROR.MAP(R3) 
R4,10(SP) 

000,R2 
a 


BD DBweDBIvS 
AES 


agin) Rea tsp) 
S SP) -ERROR.MAP(R4) 


R5,10(SP) 





re eee ee ee 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (44) 


ROW.NUM,PROM.ADRS 


ML.REG 
PROM: ADRS ,MLREG 


a R 
L Lee Shp: 


* ,SSTMP1 


SSTMP 
SSTMP1 


SSTMP2 


+ ROW.NUM, « 


* ,ML.REG 
ML.REG,* 


ROW. 

ROW.NUM, FINISH 

* ,PROM.ADRS 
COL . NUM 
PROM.ADRS 

COL .NUM,PROM. ADRS 


* ,.ML.REG 
PROM.ADRS ,MLREG 


MLREG,* 
* ,SSTMP2 


* ,SSTMP1 


: SSTMP 
: SSTMP1 


SSTMP2 
COL .NUM, * 


oF INISH 


Page 163 | 
SEQ 0198 


5279 


5280 | 


5281 


5276 
5285 
5294 
5296 
5297 


5298 


5299 


LL TL TT amen 


~ ne 2 eee ene 


ee ee 


SS rr er ee re tt 


E 16 


BSKEL4 18-Mar-1982 16:07:57 TOPS=20 Bliss-16 V2(212) Page 1 
REV B PATCH 00 ROUTINE DECLARATIONS a + 18:24:41 PA:<NEALE>PMSKL4.BLI.1 (44) 56376199" : 
sisans. S037 HE age 7 see 
015012 O a7 000003 CMP R543 + SEL.BNK,* : 
015016 003633 BLE 3$ i 
015020 016701 040374' MOV ML.ADDR,R1 ; 5303 | 
015024 016166 000010 000014 MOV 10(R1),14(SP) : # ML.REG | 
015032 01 000014 MOV 14(SP) .RO + ML.REG,MLREG | 
015042 016701 040374" MOV ML.ADDR,R1 
01504 910061 10 MOV RO,10(R1) : MLREG,* 
015052 016701 040374" MOV ML.ADDR,R1 

15056 0161 10 000012 MOV 10(R1),12(SP) : *,ML.REG 

15 1 000012 MOV 12(SP).R : ML.REG,MLREG 
015070 016705 040400° MOV ML DUT R 
015074 042705 177770 BIC 177770,R5 
015100 142700 7 BICB s«#*7LR : *,MLREG 
015104 050500 BIS RS_R + *,MLREG 
015106 016701 040374" MOV ML.ADDR,R1 
01511 ot 1 000010 MOV RO 10(R1) : MLREG,* 
015116 062 000032 #32, ; 5197 
01512 20 RTS PC 

Size: 


2 80 words. 
> Maximum stack depth per invocation: 19 words 


| 





WINALL AA I 
AIHA RSTOROROROTORORIRY os aaa 
WAR) © OO NOUS WN) OC OW VNOAULSWAN oO 


w 
Ww 


Se 


PUPP IIA AAA AAA AAAI 
a 
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VIM 
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Ww 
CONOU 
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\o-far~ 1385 19:97:37 
ROUTINE DECLARATIONS 18-Mar-1982 15:44:41 


routine OR_OLD_NEW_PD (BNK_NUM) : novalue = 
begin 


'o+ 
' Functional Boscr ips ion: 
: Once the nibble offsets have been counted and 
offsets > 14 do not exist then the 
old prom data stored in the error map 
bank is OR’ed into the blast 
table where the check sums can then be calculated. 





Formal Parameters: 
ARRSBNK_SEL: 
Stores array and bank select address. 


Implicit Inputs: 
» BLAST TBL. ERROR_MAP 


Implicit Outputs: 
The old prom data in the error map is OR‘ed 
into their respective blast table Locations. 


Completion codes: 
none 


Side Effects: 
none 


i 
i 
i 
i 
i 
i 
i 
‘ 
i 
5 
5 
' 
i 
! 
' 
' 
t 
i 
i 
i 
i 
law 

i+ 

! To conserve memory space the ML-11 exercisers 

! write and read buffers are redefine . 3 

‘ contigious blockvector of 4 blocks of 512 words 

! each. This map declaration maps the exercisers 
1/0 buffers into this structure. 


ma 
ERROR_MAP : blockvector (4, 512] volatile: 


1+ 
! Logically ‘OR’ all non zero blast table locations 
' with respective error map locations. 


incr CNT from 0 to .MAX_CHIP_COL*2 = 1 do 
begin 


' Logical ‘OR’ this blast table 


ocation with 
its error map counter part i i 


t 1S non zero. 


oe aed 


mr eee ists 


TOPS=-20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 (45) 


'Map the error map like the blast tasble 


'Or all non zero blast table locations 
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SEQ 0200 
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a 


OO EE TT = i 


BSKEL4 
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WMUMMMAMMAMAAMI AMI ain 
NN Viww 
VANSANORENORRS 


eeeasesesesseseeee 
Ww 

™m 

— 

SERS 


5359 


outine Size: 


if .BLAST_TBL C.BNK_NUM, .CNT, FULL_WRDJ neq ZERO 


then 
BLAST_TBL C.BNK_NUM, .CNT, F 


BNK_NUM, .CNT, FULL_WRDJ; ~ 


end; 


030372" 


010230" 030372° 


27 words 


: Maximum stack depth per 


invocation: 


1$: 


2$: 
3$: 


5 words 


———_———— 


-SBTTL 
OR.OLD.NEW.PD: 
JSR 


16 


— 


eerie 18:02:47 


18-Mar-19 


a ee 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (45) 


'Is this location not zero 


L_WRD] = .BLAST_TBL [.BNK_NUM, .CNT, FULL_WRDJ or .ERROR_MAP [ 


R1,$SAVE4 
MAX. CHIP.COL,R4 


a ae 


#BLAST.TBL,R2 

R3.R2 

Re) | 
ERROR.MAP(R3) .BLAST. TBL (R3) 
R1,R4 

1$ 


PC 


OR.OLD.NEW.PD ROUTINE DECLARATIONS 


; BNK.NUM,* 


CNT 


CNT,* 


CNT 
CNT,* 


‘Or this Tocation with adjacent error map location 
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= me me ese ee ee eee + ew 
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™N 


wi 
NWWNIWWNIWNWAAIANG 
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wi 
~ 
AulwWnowo 


~S~s 


SESSEEERES 


MMMM AMIUIUVIWM 
PRERRRSLARS 
cemeB cme sed ed ceed med aed und eed 
ONOULWNO 


1 
ROUTINE DECLARATIONS 8 
routine BIT_CLR_OLD_NEW (BNK_NUM) 
begin 


++ 





: novalue = 


i Functional Description: 


When a failing chip is searched for newly 


failing rows and columns there is always 
the possibility that old bad rows or columns 


may also fail. 


In fact we hope the 


0 
so to give us a performancd history of the chip. 


These failing rows and columns if any 
be clear out from the blast table 
to allow the counting of bad nibble off- 


must 


sets. 


This 
the b 


t 


Mare1982 16:07:57 
“Mara1983 19246241 


em a lee 


TOPS=20 Bliss-16 V2(212) 


Lobal routine bit clears the error map with 
ast table at the selected bank. 


Formal Parameters: 
“Selected bank number for bit clearing. 


Implicit 
” R 


Implicit Outputs: 


Inputs: 


ERROR_MAP, BLAST_TBL 


The blast 
occurances. 


table is cleared of old prom data 


Completion codes: 
none 


Side Effects: 
none 


1+ 


! To conserve memory space the ML-11 exercisers 
' write and read buffers are redefined t 4 
cont tetas yg ed pod of 4 blocks of 512 words 
1/0 buffers into this structure. 


his map 


eclaration maps the exercisers 


ma 
. ERROR_MAP : blockvector (4, 512] volatile; 


+ 
' Bit clear all blast table locations with their 
error map counter parts. 


‘Map the error map like the blast table 


PA:<NEALE>PMSKL4.BLI.1 (46) 
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SEQ 0202 


ee - 
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eS 
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BSKEL4 
REV B PATCH 00 ROUTINE DECLARATIONS PA:<NEALE>PMSKL4.BLI.1 (46) SEQ 0203 


: 5419 
3 2 ° incr Ot from 0 to .MAX_CHIP_COL*2 - 1 do !Bit clear blast table with error map at this bank 
; 54 ¢ BLAST TBL C.BNK_NUM, .CNT, ‘rt = ( not .ERROR_MAP C.BNK_NUM, .CNT, FULL_WRDJ) and .BLAST_TBL C 
; 54 ~BNK_NUM, .CNT, FULL_ WRD 
; 5424 end; 
; 5425 
; 5426 end; 

-SBTTL BIT.CLR.OLD.NEW ROUTINE DECLARATIONS 
015212 004167 0000006 BIT.CLR.OLD.NEW: 

JSR "R1,$SAVE3 ; 5367 
015216 016703 040376° MOV MAX. CHIP. COL,R3 ; 5420 
015222 006303 ASL 
013930 000 ‘ 
0152352 105000 CLRB 
015234 sia pi ASL RO 
015236 005001 CLR R1 ; CNT 5420 
015240 000407 BR 2$ 
015242 010002 1$: MOV RO,R2 . 5422 
015244 060102 ADD R1,R2 ; CNT,* 
01524 srery: ASL R 
015250 046262 010230° 030372" BIC ERROR.MAP(R2) ,BLAST. TBL(R2) 
015256 005201 INC R1 ; CNT 5420 
015 rt: 020103 2$: CMP R1,R3 : CNT,* 
015262 002767 BLT 1$ 
015264 000207 RTS PC ; 5367 


; Routine Size: 


j 
| 
015224 ahs 000012 MOV a ae 3: BNK.NUM,* a 
WAB R 
22 words 
: Max imum stack doe | per invocation: 4 words 
| 





EEE SS aS 
———————————— 
a 

EE 


BSKEL4 J 16 
REV B PATCH 00 ROUTINE DECLARATIONS Jo-tior~ 120s 16:07:37 . [opened Bliss 16 v2 


LP ONEALESPMEKL G eecie i page on 


(47) SEQ 0204 





: 5427 routine IN_BLAST : 

54 3 begin _TBL (ARRSBNK_SEL, TSTED_BNK) : novalue = 
22 1 a i 

: ' Functional Description: 

; 54 : This global routine first clears th 

| Ef) giteeaecire 
5436 failing rows and column. a 

; 54 i The selected bank is then searched 

2038 ay geerereees failing rows or ee Se ones! 

: 5440 |! : 

; 5441 ! If no additional failing row col 

ran ; found then the bank is cot other testes. 

5444 =! If additional failin 

; 5445 ! found then the piaet’ table a ere ware 

a4 map is search for nibble sa 

: 

: ! Formal Parameters: 

shee ARRSBNK_SEL: 

; ae5 i Stores array and bank select address 

: te7 states h bank 

; ! Ow man 

; 5455 i at ee y banks per array module 
; 5457 | Implicit Inputs: 

; 3738 ERROR_MAP, BLAST_TBL. BAD_BNK_REG, DEGRADE_MOD_REG 
: 5460 ! Implicit Outputs: 

; 5461! 1. If nibble offsets ed 14 

; 5462 =! column address in the b 3 Page Blgey Bd 
a107 until nibble offsets —. sia ecaaiaes 
; 5465 | 2. A banks bad bank register bit | 

2708 bank has sasitional arrer gi Tia —— 

: 5468 =! 3. A banks degrage mode registe 

2793 ; nibble offsets greater than Gnas deteceee. 
; rte Completion codes: 

5473 ~ 

: 5474 ! Side Effects: 

3476 i 

; 547 


5478 local 


ee ee we em ee re a ee ee +e eee LL I LS TT 
~ 
~- 
re eee ee + ee 
ee ee Se = 








—_—_ ee ee a eee —< 





BSKEL4 18-Nare19 1982 1 6 :07:5 7 TOPS-20 Bliss-16 V2(212) Page 
REV B PATCH 00 ROUTINE DECLARATIONS 18-Mar-1982 15:44:4 PA:<NEALE>PMSKL4.8L1.1 (47) Sta 6205" 
: 5479 QD_0_SUM, ‘Quadrant 0 offset sum = sectors 0-127 

; 5480 QD_1_SUM, ‘Quadrant 1 offset sum = sectors 128-255 

; 5481 QD_2_ SUM, ‘Quadrant 2 offset sum = sectors 256-383 

: 5482 QD 3 SUM ‘Quadrant 35 offset sum = s¢ gors 84-511 

; 5483 ROO_0 127_OFF. ‘Offsets count for rows 0- 3 

: 5484 ROW_ 128 8.592 OFF, ‘Offset count for rows 128-255 

: 5485 COL_0 FF, ioftset count for columns 0-127 

: 5486 COL_ “128° 555 _OFF, ‘Offset count for column 128-255 

: 5487 BNK-NUM ‘Stores bank ys ey ol 

5488 AR " ‘Stores array select 

; ret OVER_FLOW: ‘Stores offsec pont "which are > 14 

: 5491 1+ 

s 5492 ' To conserve memory space the ML-11 grere seers 

; 5493 i write and read buffers are redefined to be a 

; 5494 i contigious blockvector of 4 blocks of 31 words 

: 5495 i each. This map declaration maps the exercisers 

: 5496 ' 1/0 buffers into this structure. 

; 5497 in 

3199 

: 2200 g ERROR_MAP : blockvector (4, 512] volatile; ‘Map the error map Like the blast table 
: 5502 I_ERROR (); ‘Init the error map before we store the prom data in there 
: 5503 RD OLD PRON bata (. oa? EL); ‘Read the old prom data into the error map 

: 5504 BNK _ .ARRSBNK_S <-BNR SEL: POS. BNKSSEL_SIZE>; iselect the bank to interigate 

: 2202 ARR_NUM = .ARRSBNK_ SEL CARR ~SEL_POS, ARRS$SEL_SIZE>; !Select the array of this bank 

: 2208 incr sei, _BNK from 0 to .TSTED_BNK - 1 do 'Interigate the pm‘ed banks 

: 2205 Bf7'c CLR_OLD_NEW (.BNK_NUM) ; 'Clear the old failing rows/cols from the blast table 
: gai) as S_BLAST_TBL (.BNK_NUM) ‘Are there any new errors in this bank 

: 5513 ae 

; ay BNK_REG C.BNK_NUM] = SET_FLG; '!Flag that this is a bad bank 

: 2216 iner NIB_ NUM from 0 to 9 do ‘Search thru all nibbles in this bank 

: 5518 ROW.0 Sal hes ‘Init the row count 

: 5519 ROW at 8 259 OFF = = ZERO; iInit the row count 

: 5520 cOL_0 FF = ‘Init the column count 

; 3521 COL” a 555. OFF = sero: iInit the column count 

; 2258 incr ROW_NUM from 0 to 127 do !Sum the number of failing rows 0-127 

: 225¢ begin 

: 33 . if -BLAST_TBL C.8NK_NUM, .ROW_NUM, .NIB_NUM, 1, 0] 

; en 

; 23 3 ROW_0_127_OFF = .ROW_0_127_OFF + 1; 

: 55 if .ERROR_MAP C.BNK_NUM, .ROW_NUM, .NIB_NUM, 1, 0] 
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531 then 
33 ROW_0_127_OFF = .ROW_0_127_OFF + 1; 
23¢ end; 
239 incr COL_NUM from 0 to 127 do !Sum the number of failing columns 0-127 
53 begin 


if .BLAST_TBL C.BNK_NUM, .COL_NUM + .COL_BASE, .NIB_NUM, 1, 02 
emer OL_0.127_0FF = .COL_0.127.0FF + 1; 
if .ERROR_MAP C.BNK_NUM, .COL_NUM + .COL_BASE, .NIB_NUM, 1, 0] 
emer OL_0.127_0FF = .COL_0.127_OFF + 1; 


SRR RERRRP RWW 


end; 
7 -BNK_NUM_SEC gtr 127 'Is this a 64k part 
en 
begin 
incr Say sa from 128 to 255 do !Sum number of failing rows 128-255 
gin 


Ver c2mlcb added *.* to ROW _NUM 
1 tat eae C.BNK_NUM, .ROW.NUM, .NIB_NUM, 1, 0J 
ROW_128_255_OFF = -ROW_128_255_0F F *. Ts 
if -ERROR_MAP C.BNK_NUM, .ROW_NUM, .NIB_NUM, 1, 01 
ROW_128_255_OFF = .ROW_128_255_OFF + 1; 
end; 
Se from 128 to 255 do !Sum number of failing col 128-255 
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ww 


if .BLAST_TBL C.BNK.NUM, .COLMUM + .COLBASE, .NIB_WUM, 1, 01 
COL_128.255_OFF = .COL_128_255_OFF + 1; 
if .ERROR_MAP C.BNK_NUM, .COL_NUM + .COL_BASE, .NIB_NUM, 1, 01 
emer OL_128.255_OFF = .COL_128_255_OFF + 1: 
end; 
QD_1_SUM = .ROW.128.255_OFF + .COL_0.127_OFF:; ‘Sue number of failures in quad 1 
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: 55 = ROW 9.) F + .COL_128 255 _OFF; 'Sum number of failures inquad e. 
; B aD $-5um = .ROW_128 oo5e OFF -COL_12 7359 bir: 'Sum number of failures in quad 3 
: 55 

: 2 QD_0_SUM = .ROW_0_127_OFF + .COL_0_127_OFF; 'Sum number of failures in quad 0 

: 22 if .QD_0_SUM gtr 14 'Is quad 0 offsets > 14 

: 55 then 

3 5591 begin 

- 2238 ERRSF (ERR_7, CON_C_MSG, 0); ‘Report the error 

; 59 PRINTB (A_B_N.PR ee ARR NUM <BNK .NIB_NUM); !Print where 

; 5594 DEGRADE _MOD_REG BK NUT =, § FLG; 'Indicate this is a * degraded bank 

: 2282 OVER_FLOW = .QD_ “SUM eeleutate she difference 

: $597 incr ROW_.NUM from 0 to 127 do ‘Delete row offsets until eql 14 

: 5599 | if .BLAST_TBL C.BNK_NUM, .ROW_NUM, .NIB_NUM, 1, 0] ‘Is this row bad 

; 5600 then 

; 5601 begin 

§ 560 BLAST.T TBL C.BNK_NUM, . -NIB_NUM, 1, 0] = CLR_FLG; !Clear this bad row 
: 560 OVER_ "Plow = .OVER FLOW - rer 7 tbecrement ™ “difference 

; ; ; : QD_2-SUM = .QD_ at - 1; !Delete other sums using this row 

: 5 60 | if .OVER_FLOW eql ZERO then exitloop: ‘Exit if difference eql 0 

: 3608 end: 

: 2019 : f .OVER_FLOW neq ZERO ‘Did deleting bad row get the difference to 14 

5 nen 

| 2 

5 aei8 incr COL_NUM from 0 to 127 do !Delete bad column until offsets are at 14 

; 3616 if .BLAST_TBL C.BNK.NUM, .COL_NUM + .COL_BASE. .NIB_MM, 1. 0) 

: 5618 begin 

3 5619 T_TBL a - COL wm + - COL pase -NIB_NUM. 1. 0] = CLR_FLG; 

$ 5620 ta FLOW, : aot sin ‘Decrement the di fference 

; ; 1 ‘Delete ste tats column from other sums 

; 2 § it OVERFLOW eql ZERO then exitloop; ‘Exit if difference is at 0 

: é end; 

: end: 

5 5 

: ; end; 

3 3 1 if -BNK_NUM_SEC gtr 127 'Is this a 64k part 

; 56 begin 
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; 5 it: -QD_1_SUM gtr 14 ‘Is quad 1 sum > 14 
56 begin 
5 ERRSF (ERR, 7, CON_C_MSG ‘Report the orcer., 
6 9 PRINTS (A_B_N nee Ei ate nim ge sONK A NUM, + gNIB_NUM) lee Tell w wher is 
BAK NUR] = $ 5 ; a degraded ba 
$641 OVER. ret ™.QD_1_ SUM” Tcalculate the difference . 
e207 incr ROW_NUM from 128 to 255 do ‘Delete bad rows until offsets are at 14 
> oF ad -BLAST_TBL C.BNK_NUM, .ROWLNUM, .NIB_NUM, 1, 0J ‘!Is this a bad row 
5647 begin 
5648 B BNK_NUM, .ROW.NUM, .NIB_NUM, 1, 0] = CLR_FLG; 
5649 OVER_ Plow ; ",OVER_FLOW = Ay ‘Decrement the difference 
2630 | QD_3_SUM = .QD_3_SUM - iDelete other sums of this bad row 
rt if .OVER_FLOW eql ZERO ren exitloop; ‘Exit when difference is at 0 
38 ms 
5656 if .OVER_FLOW neq ZERO ‘Is this quad offset at 14 now 
5657 then 
38 ~— 
tae0 incr COL_NUM from 0 to 127 do ‘Delete bad columns until offsets are at 14 
sect iy Tari TBL C.BNK_NUM, .COL_NUM + .COL_BASE, .NIB_NUM, 1, 0] 





5665 Beg? 


BNK_NUM, .COL_NUM + .COL_BASE, .NIB_ NUM, 1, 0J = CLR_FLG; 










2566 OVER_ Flow : .OVER_FLOW - 1; !Decrement difference 

2008 if .OVER_FLOW eql ZERO then exitloop: ‘Exit when at 0 
5670 | end; 

5671 

567. end; 

56 

5674 end; 

5675 

267 if -QD_2_SUM gtr 14 'Is this quad offsets > 14 

678 peaie 

679 SF = i Pa Re Aa ‘Report the error 

680 PRINTB (A sBNK NUM, NUM) ; t where 
681 DEGRADE REG a re ae FLG; tindizate this . a py ae bank 
5088 | OVER_FL Tcaiculate the difference 

268% incr wean from 0 to 127 do '!Delete bad rows until offset are at 14 


Be Ge Fe Se Se Ge Ge Fe Se Ge Be Be Se Ge Fe Ge Be ee Fe Be Ge Fe Fe Ge Fe ee FH Fe Se ee Fe Se Geese Fe ee ee Ge Fe Pe ae PH ae F8Ge we Be Se SH Se Oe ee 


5686 if .BLAST_TBL C.BNK_NUM, .ROW_NUM, .NIB_NUM, 1, 0] !Is this a bad row 
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then 


begin 
BLAST. TBL C.BNK_NUM, .ROW.NUM, .NIB.NUM, 1, 0 = CLR_FLG; 
OVER. TPL OU = .OVER_FLOW - T; iDecrement the difference 


if .OVER_FLOW eql ZERO then exitloop; !Exit when at 0 
end; | : 
if .OVER_FLOW neq ZERO ‘!Is quad offsets at 14 yet 
begin 
incr COL_NUM from 128 to 255 do ‘Delete bad columns until offsets at 14 
os -BLAST_TBL C.BNK_NUM, .COL_NUM + .COL_BASE, .NIB_NUM, 1, 0] 





BUR aL COL -NUM + .COL_BASE, .NIB_NUM, 1, A s = GA, FLG; 
SUM = 3 Sun = ‘Delete other sums of this” 
OVER FLOW = as F tow -"1; !Decrement the differnece 

if .OVER_FLOW eql ZERO then exitloop; ‘Exit when at 0 

end; 

end; 
end; 

then -QD_3_SUM gtr 14 'Is this quad offsets > 14 

ERR_7, CON CMS ‘Report the error 






ane AB AN -BNK NUM, _NUM) ; ‘Print where 

OVER. a ate tia A Sei, Fubr  tindieate iis ts — 

incr ROW.NUM from 128 to 255 do ‘Delete bad rows until offset are at 14 
- fae. TBL C.8NK_NUM, -ROW_NUM, -NIB_NUM, 1, 0] ‘Is this a bad row 






"begin C.BNK_NUM, .ROW.NUM, .NIB_NUM, 1, 0] = CLR_FLG; 'Clear 
OVER. Flew =" ,OVER_FLOW - T; (Decrement the difference 


if .OVER.FLOW eql ZERO then exitloop; ‘Exit when at 0 
end; | 
: , an neq ZERO !Is quad offsets at 14 yet 
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begin 
incr COL_NUM from 128 to 255 do 'Delete bad column until offset at 14 
: f MAST a. C.BNK_NUM, .COL_NUM + .COL_BASE, .NIB_NUM, 1, 0] 
be in 
TBL C.BNK_NUM, .COL_NUM + .COL_BASE, .NIB_NUM, 1, 0] = CLR_FLG; 
OVER_ Tel ou = .OVER_FLOW - T; ‘Decrement difference 
if .OVER_FLOW eql ZERO then exitloop; ‘Exit when at 0 
end; 
end; 
4 end; 
F38 end; 
ul 33 end; 
769 OR OLD. NEW_PD (.BNK_NUMD ; 'Or the old prom data with new prom data 
e 
76 
764 BNK_NUM = -BNK NUM + 1; | 'Increment to the next bank 
765 end; 
766 
767 end; 
-SBTTL IN.BLAST.TBL ROUTINE DECLARATIONS 
0000006 IN.BLAST. TBL: 
JSR a1 Saave> 3 5427 
en 3 , 502 
090080 MOV ec at a : ARRSBNK.SEL,* 5503 
4 3 JSR PC ARP D.PROM.DAT 
00005 MOV 2, (SP : 5504 
é ADD SP (SP) : ARRSBNK.SEL,* 
04041 , MOV BNK. SEL. POS, ~(SP) 
2 MOV #2,-(SP) 
CLR -(SP) 
JSR P BL SGTS 
1 MOV (SP 3; *,BNK.NUM 
° MOV (SP) 3 5505 
ADD SP, (SP) : ARRSBNK.SEL,* 
0412" MOV ARA.SEL.POS,-(SP) 
MOV . on ii 
ROP 
Oo00es° mov ay “Atel?  *,ARR.NUM 


que eee 
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: ROW.0.127.0FF 
: ROW.NUM, * 


3; COL.NUM 
; COL.NUM,* 


3 NIB.NUM,* 
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; ROW. 5 
* ROW.NUM 553 
: ROW.NUM,* 

3 *,COL.NUM § 

: COL.NUM,* 2365 
; NIB.NUA,* 

: COL.128.255.0FF 5574 
: COL.NUM,* 5576 
; NIB.NUA,* 

: COL.128.255.0FF 5578 
: COL. 5569 
: COL.NUM,* 

: ROW.128 ForP abet QD. 1. SUM 5582 
: COL. 150-0 F QD. 1. Sum 
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; 5592 


BSKEL4 
REV B PATCH 00 


016 
016 


oOo 


PESLLSRE Le 
£oFfo 


aS 3IA2 


rt 


SOPOAPAPASS 
Seguse 
oS 


eoeesessesseeeseseseesessesesesee 
~J 
SEES 


ed ed ood con mad odd 
On 
WM 


ssssssssss 
RRR AE 
+ + +~+_¢. 
2 < 


AXAAAAH 


ook ed ed ced eed od 
x 


3 


SE 


td ot 
ne 


S23 
ab 

ct 
Nua 


2 
Ss 


SSeS Er Sess 


ene 
| 
7 





aes 


ROUTINE DECLARATIONS 


Se 


040372° 


1 1 
1B-nar-1969 18:46:41 


0 
83 
63 
WA 
a% 


12$: 


133: 





TOPS=-20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.8L1.1 (47) 


& 
ees 
ass 


QD.0.SUM,OVER.FLOW 
* ,.OVER.FLOW 
ROW. NUM 


ROW .NUM, * 


NIB.NUM,* 


NIB.NUM,* 


OVER. FLOW 
> OVER.FLOW 


* 
: ROW.NUM 
: ROW.NUM,* 


OVER.FLOW 


COL .NUM 
; COL.NUM,* 


P 17 
SEQ? 0214 


9 


5593 


5594 


5595 


5597 
5599 


EE LT LT eee rene er TD 


BSKEL4 
REV B PATCH 00 


016602 704 






1 

oige ul 
166 

016676 005701 

me 062706 

sens fs 

01671 7 

ser 

Sie fg 

SES See 

gers Be 

vie le 

016752 7 
6 

gers sie 
1 a 
167 

6 

O1677 16646 
1 1 
16776 012746 
es Hie 
1 : 14 
1 16 
1 6 
1 6 
1 12746 
1 645 


ed, 


ROUTINE DECLARATIONS 


030372" 


000001 


900010 


040372" 
030372" 


000001 


000020 
040416" 000177 


001334 
000036 000016 


ss 
1 % 
000004 


se 3 
24° 


177770 


000001 








15$ 








oSP 


45$ 


w cod see 
EEELEPEEELLLET 


oe 
SC 
~~ § 
7 
wn 
~v 


#BLAST.TBL.R4 
R4,~(SP) 
R5,~-(SP) 


oNUM.SEC #177 


(SP) ,#16 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BL1.1 (47) 


P NIB.NUM,* 


3 COL «NUM, * 


: NIB.NUM,* 


OVER. FLOW 





Py QD.1 - SUM, * 





e 180. 
215 


| 


5619 





eee ae ee 


BSKEL4 


REV E PATCH 00 


017040 
017044 
Ot 7820 


017054 
017080 
01 


oo 

— 

~~ ~ 
BERT: 
oa 


- eee R PRR REE AERA DA DDD 


SANSARSFSSESEOSRNSTFSES 


ee eee ee ee eee eee esses SS SseSsssscss sss 
a 


REVERS HSRNSANS 


coals womb candi cud 








ROUTINE DECLARATIONS 


19$: 


040372" 
030372" 


000001 


000010. 


040372" 


030372" 





K 1 
18-Mar-19 
18-Mar-19 


PC BLSPU 
56(SP) .R 
i R2 
R3_R4 
R2.R4 


#BLAST.TBL.R4 
R4,-(SP) 
R5,~(SP) 
#1 ) 





#BLAST.TBL.R4 


@e Ge Be 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.B8L1I.1 (47) 





QD.1.SUM,OVER.FLOW 
* ,OVER. FLOW 


ROW.NUM , * 


; NIB.NUM,* 


* NIB.NUM,* 


OVER. FLOW 
OVER. FLOW 


; ROW.NUM,* 


OVER.FLOW 


; COL.NUM 
: COL.NUM,* 


> NIB.NUM,* 


; COL.NUM,* 


Page 181 
SEQ 0216 


5641 


5648 


5652 


a rt ae 


BSKEL4 


REV B PATCH 00 


017564 


se 


017274 


o 
= 
™N 


NNN 
RRRRRS 
VOEVOROS 


PPP PPP ~NN 


emt emp Cand ced cmd end) wma end eh cmt cond ed ced eee) need <tr 
~ 
~ 
~ 


>>. 
~~ 
23333 





010446 


© 
—_ 
© 


SSsox 
> 
— 


FONRSRR ESSE. 


_ 
rats 
Foe 
m™~N 

a 


=a 
x 
oO 


oooeoo 


ond 
ed aod 


supe 
= 
x 

ay 
RADROE 


aa. 


6 


RISLARS 
2 ob 


see 


ROUTINE DECLARATIONS 


000001 


0000006 


000010 


000010 


000177 


000020 


000040 000016 


030372" 


000001 


000010. 


000001 


L 1 


18-Mar-1988 18:46:41 


rr 
wie 
AM 
ee ee 


ae 


#20,SP 

ACOMT 
és 

4 

ON.C.MSG 


-62(SP) > =(SP) 
#A.B.N.PRINT 7 (SP) 
#4,-(SP 


REG, (SP) 


28$: 






R5,~(SP) 
#1 ,~-(SP) 





TOPS-20 Bliss-16 V2(212) 
4.BL1.1 


PA: <NEALE>PMSKL4.BL 


3 NIB.NUA,* 


OVER .FLOW 


QD.2.SUM,OVER.FLOW 
* OVER. FLOW 
ROW. NUM 


NIB.NUM,* 


: NIB.NUM,* 


Page 1 
SEG 021 


82 
7 


' 
) 
| 
| 
| 


BSKEL4 
REV B PATCH 00 


.~ 
$23 
—_ 


S S S S 
OOOO. NO 


oO 





SaRe 


o 
~~ 
= 


¥ 


YISS 
“J 
FOne 


4 


4 
rs 
s43 


#8 


Se 


SAERE 


S 


g228 
SEES 


Sim 


7‘ 
RO. 


arty 4 
++ 
ret. ee 


ene 


> 


+ 


— ee 
ya 


ROUTINE DECLARATIONS 


000001 
0000006 
000010 
040372° 


030372" 


000001 


31$: 


32$: 





(SP) 


PC. BLSPU2 
RI 


29$ 
#10,SP 
31$ 
#10,SP 
R3 #177 
2 

R1 


35$ 
# 00 Re 


R2,R 
. —- oR4 
RS.R 


° 


#BLAST.TBL .R4 
R4,~(SP) 





cr 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BL1.1 (47) 


; OVER.FLOW 


: ROW.NUM 
: ROW.NUA,* 


OVER. FLOW 


*,COL.NUM 
COL .NUM, * 


e NIB.NUA,* 


COL .NUM, * 
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: QD.3.SUM 
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COL .NUM 
COL .NUM,* 


QD.3.SUM,* 


5705 





BSKEL4 g-har-1982 16:07 TOPS-20 Bliss-1 v2(212) Page 184 
REV B PATCH 00 ROUTINE DECLARATIONS 1Bomar=19 1 PA:<NEALE>PMSKL4.BL1.1 (47) SEQ 0219 
SP) : NIB.NUM,* 5721 
33tsP).~« =(SP) : BNK.NUM,* 
(SP) : ARR.NUM,* 
#A.B.N.PRINT,-(SP) 
#4,~(SP) 
SP.RO 3: SP,* , 
44(SP), (SP) ; 5722 
#DEGRADE .MOD.REG, (SP) 
(SP) ; BNK.NUA,* 
50 ; QD.3.SUM,OVER.FLOW $723 
+4 Py *, ER.FLOW 
200¢ ' Py *, LS 5725 
' 37$: ; 5727 
0 x + ne 
Rehoet ogres 030372" 
920046 010: : NIB.NUM,* 
920050 012746 000001 
20€ iW! ons 
‘ 4! t . 4 . 
Sees Carte SRtTE ss 
4 IC 03016 
010446 MOV 5 5730 
10546 MOV * NIB.NUM, * 
000001 MOV 
0000006 JSR 
| DEC ; OVER.FLOW 5731 
000010 ADD , 
— 308; INC : ROW.NUM 232 
000377 aes cre : ROW.NUM,* 
40S: ist : OVER.FLOW | $737 
_— 418: MOY z egf Ot Hoe 
040372" "ADD mS) San 
uP 
030372! ADD T.1BL. R4 
MOV R a tSP) : 
MOV R5,-(SP) : NIB.NUM,* 
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; COL.NUM,* 5746 













MOV 
CLR 
JSR 
ADD 
ROR 
Bcc 
MOV 
ADD 
ADD 
ASL 
ADD 
MOV 
MOV ; NIB.NUA,* 
MOV 
OR 
DEC : OVER.FLOW 5747 
BNE 3 5749 
ue 
423: ADD ; 5745 
“83: INC : COL.NUM 5741 
a4 : COL.NUM,* 
446$: ADD ; 571 
45$: INC : NIB.NUA 5516 
CMP e NIB.NUA,* 
BGT 
JMP 
46$: MOV . : BNK.NUM,* 
ao ib, sh 
473: os ca : BNK.NUM 
s's's-9g4 INC (SP) : SEL.BNK 
000064 48$: ace ? (SP) .64(SP) : SEL.BNK, TSTED.BNK 
1 1 
boonse 49$: ADD ‘ 3 5427 
RTS PC 


: ine Size: 799 words 
: Maximum stack depth per invocation: 42 words 





Ww 
S 3 
ees | 








C 
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a (TEMP_ARRSBNK_SEL, BAD CHIP) : novalue = 
n 


viw 
“J 


— 


i+ 

i "penet tenet Description: 

The error map is loaded with all the new and 
old faili ra and sector addresses for a 
failing chip 


From this row and sector information stored 
here it can be calculated which are newly 
failing rows and columns and the best way 
to mask them. 


This global routine will int © phe error 
map and load the blast table” at this chips 
new masking prom data. 
This * cane routine executes in the following 
r It first searches the error map for 
all bad rons IE. occurances of bad 
rows > 10 times. 


2. It then searches the column count 
table for column counts > 10 


3. It then transfers to the ryearnter table 
any remaining single cell failures. 


4. It then interi eyes the renain Be ped 
for these remaining single ay ta 

and selects the best one for blasting. 
Formal RASONK SEL: 
“Stores array and bank select address. 


BAD_CHIP: 
Points to the failing chip persently 
being pm'ed. 


Implicit Inputs: 
Mei CE GRADE MOD_REG, FLG_REG 


Implic 


~ 
~ 
wi 


SeasesIaNe 


BSISSVSe 


MMVIII MMMM 


79% 
795 
79 
798 








SOOO DOC 


eed) can cod eect ome} mad) we em em co CO 


sys 


tet this is the first 
oe then the flag peptever 





bad chip in this bank 


If this is t aft 
then the flag > aoleine bit abort_array is set. 
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! Completion codes: 
: none 













854 

Ty i 

858 ! Side Effects: 

Beh Ci! none 

5825 '-- 

py. 

+ 

¥4. i $tores array select number 

825 s bank 

183 ALL 5 mente total” all bad. rows and columns found bad 
583 ARR_SEL =. ARRSBNK_SEL<.ARR_SEL_POS, SEL_SIZE>; ‘Load the array sel number 
383; BNK-NUM = . “SEL<.BNK_SEL_POS, $SEL SIZE>; ‘Load the bnk sel number 
tte: 1_TAP_BLST_TBL Init the temporary blast table 

3 3¢ i Search the error map and find failing row 

58: ! addresses which have failed more than 1 

B38 ‘ times. For the rows that don't fail more 

835 ! than ten times save a count of the adjacent 

3: ! column pair which will later be ; find 

}: these rows which failed less thar times. 

. ALL_BAD = S_ERROR_MAP (.BAD_CHIP); 'Search error map for all bad rows 


Did the search of the : ror map find 10 ail 
bad rows in error within this chip ? 


If 10 were found then this is called an all 
bad chris eine continue and search the column 
¢ = ce for columns in error greater than 


of he leq 9 'Is the all bad count <= 9 
begin 


i Search the column count table for column counts 
greater than ten. 


Au BAD = S_COL_CNT_TBL (.BAD_CHIP, .ALL_BAD); !Search column count tabie for all bad cols 
| If the peers error map plus search column count 
t bad rows 


found 1 columns age this oe ay cohied 
all bad and no prom m blasting is done =e of peer the remainde 


table for remaining row column pairs asting. 
if .ALL_BAD leq 9 'Is the all bad count <= 9 
then 





begin 


Ms 
sea "6222. 
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ALL_BAD = S_REM_TBL (.BAD_CHIP, .ALL_BAD); ‘Find the remaining bad rows/cols 





+: 
§ 
} end; 
ETS 
' for the eofr code sumwnar 
t. ' store into a statist ot reper’ “table” 
§ i the Locations, chi t r 
BE i 9 rows and columns bl Slasted in each newly 
BE : failing mos ram chip. 
if -PM_COUNT iss 128 ‘Only store a total of 128 failing chips 


cote BI Ks 









ps number 
'Store number of r/c failing 


PM-LOG C.PM_COUN 
em_COUNT = 2PM SOCOUNT * the number of table enters 


mm &9s vO . 














j | { ie leq 9 ‘Were there <= 9 all bad rows/cols found 

+: | in 
38 Ke RP_BLST_TBL (. TEMP_ARRSBNK_SEL. .ALL_BAD); ‘!Xfer temp blast table to blast table 
59 else 
$505 begin 
3904 - {aes -FLG_REG CF_ALL_BAD_CHIPJ 'Is this the first all bad chip in this bank 
5 
2309 "bagi (ERR s 05 ); on as a condition a 
2309 rane. 6 BAD Enis et te: set t att bed chip uu’ ve 
a eves (EAL 6G CBN NUM = TLFLG; ” 

31g else 
1a BRAS (ERR_6, CON PISS 0); ‘Report a condition b 

915 PRINTB (REP_PRINT, "SEL); : t where 

916 G_REG CF Pap A ARRAYS” = SET_FLG; ‘'Set the abort array flag 

918 ; 

91 end; 

351 
5921 end; 


SR 





F 2 
SKEL4 1 1 4 7:57 TOPS- iss-1 (212) 
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.SBTTL IN.ERROR.MAP ROUTINE DECLARATIONS | 
0000006 IN. ERROR.MAP: 
JSR R1,SSAVES ; 57 
000022 MOV #20 =($P) ; 5a 
ADD (SP : TEMP. ARRSBNK.SE,* 
040412" MOV § ARR. SEL. POS,,-(SP) | 
MOV #4,-(SP) | 
CLR =(§p) : 
0000006 JSR 
MOV 3 *, ARR.SEL 
000030 MOV (SP) : 5833 
ADD SP, (SP) : TEMP. ARRSONK.SE.* 
ose 3 MOY SE POS ,~(SP) 
MOV #2,-(SP) 
CLR -(§p) 
0000006 JSR pC -BL SGT 
MOV oR 3; * BNK.NUM 
164460 JSR 1. TMP.BLST. TAL : 5834 
mov SP) RS : BAD.CHIP,* 5843 
1 | JSR 
11 co 8 : ALL.BAD,* 5854 
MOV = (SP) : 5861 
MOV °~(SP) + ALL.BAD,* 
JSR .S COL .CNT. TEL 
CMP “Ai : ALL.BAD,* 5869 
BGT 1 
mov ; > ALL.BAD — 
e 4 ° o* 
171216 JSR PC : 
CMP (SP ; 871 
1$: CMP (SP 3 
000000° 000200 23: cre ie : 5885 
MOV : 5888 
ASL R4 
ASL R4 
MOV 
ADD 
MOV 
SWAB 
rons sé 
ROR 
160077 BIC a 
13900 BIC eI 
BIS ( 
MOY R : BNK.NUM, « 5889 
ile 
188 





SSS eR 


G 2 
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MOV R5S,-(SP) : ARR.SEL,* 5890 

st fe 

BIC 417770 (SP) 

BICB #74, (R25 

BI1SB = (SPS+ R2) 

MOV ML. DUT ,-(SP) : 5891 

ROR 

ROR 

mf 

BIC #17777, (SP) 

BIC #160006 

aov M ALL .BAD 5892 

P ° * 

INE 5893 
3$: cw R * ALL.BAD,* 5896 

MOV (SP) ,-(SP) : TEMP. ARRSBNK.SE,* 5899 

MOV hy ate : ALL.BAD,* 

JSR x. TMP.BLST. TAL 

BR ; 5896 
4$: BIT #20,FLG.REG : 5904 

TRAP : 5907 

. WORD 

-WORD CON.A.MSG 

hov (SP) 5908 

MOV Ri -(3P> > BNK.NUM,* 

MOV ~~ (SP) : ARR.SEL,* 

MOV #A.8. PRINT ,-(SP) 

MOV a4 ) 

Oy : SP, 

TRAP 

he > BNK.NUM 

° ° * 

ASR 

ASR 

ASR 

ADD 

MOV 

MOY : GNK.NUA,* 

BIC 

MOV 

MOV 

JSR 

ADD : 5906 

BR ; 5904 
5$: RAP § 5914 

. WORD 


ae eee -—™ - _—— 


H 2 
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V 

1 - WORD ON.B.MSG 

1 - WORD 

1 MOV R5,-(SP) 3; ARR.SEL,*« 

1 its MOV —_ 

1 MOV a a 
MOV * : SP,* 
TRAP 4 

1 7 000100 040422’ B1S8 PiSycFLG.RES j 

. $s: TST (SP)+ : 
1 000022 : ADD #22,SP : 
1 RTS ~S ; 








: Routine Size: 164 words 
: Maximum stack depth per invocation: 21 words 


BSKEL4 
REV B PATCH 00 





© 


948 
94 
5950 
95 
95 
i 
95 


SSSSISAT USS 


SEESER 


000 & 
© 


Be 


MUMMMAM MMA AAU 


oO 





hare’ 
r=1 


13:26:e1 PAT CNEALESPRSKLS.BLI- 1 (49) 





ROUTINE DECLARATIONS 
routine FB_DATA_CHIPS (TEMP_ARRSBNK_SEL) : novalue = 
rn 


++ 


i Fumeetnts glo 

eset Prout ine will see rch the selected, banks 
via mass transfers look? ng for add 

fai ling ch g 


If a chi tected +. - the bf 
from which t , * ure cone es ca s calcylated 
the failing chip 


ee into the bad chip tab e. 
i Formal Paraneters: 
i “Stores array and bank select address. 





- isels I 

me NCRET STATUS, WRT_BUF, RD_BUF, FLG_REG 

i Implicit Outputs: 
The flag register bits will be set if the write 
check transfers detects an UNC error. 

i Completion codes: 

! none 


' Side Effects: 
none 







local 









BITS_TSTED, ‘Counts no. bits eeoted in read buffer 
ere theex, iStercs one ae r ee ite butfer words 
: r write er 
BAD BITS : : bitvector (16), | ogee oith or tre ans er ng read r word 
FAIL_CHIP ecords the failing mi-11 ats " chip 
SEED] = ns ; ‘Init random data seed! 
SEED Si: VIn 
SEED ‘Init random data 
OFFSET = so eROES:” iclear the renten data offset for 1's and 0°s data 
incr PAT SEL from 0 to ONE + .RAND_PASS do !Loop thru all patterns 
INDEX = ZEROES; ‘Reset random index to zero 
poteseene -PAT_SEL of ‘Select a pattern 
[0] : 


J 2 
1 








: fs C(.RAND_INDEX + .BUF_INDEX), WRD] neq .RD_BUF C.BUF _INDEX] 


Se 


begin 
BAD. BITS = .WRT_BUF [(.RAND_INDEX + .BUF_INDEX), WRD) xor .RD_BUF C.BUF_INDEX); 
incr BIT_INDEX from 0 to 15 do !Find the failing bit(s) 
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: 2g5e L_1_0_DATA (.TEMP_ARRSBNK_SEL, ZEROES); !Load zeroes data 

: 9926 (1) : 

; 4 L_1_0_DATA (.TEMP_ARRSBNK_SEL, ONES); ‘Load ones data 

: 5379 Cotherwise] : 

: 5981 L DATA (.TEMP_ARRSBNK_SEL); ‘Load random data 

: 5 OFFSET ="2: 'Enable the random data offset 

; 598 end; 

: ; : tes: 

: 5 incr SEC CNT from 0 to .BNK_NUM_SEC do ‘Write check all sectors in this bank 

: ni 

3088 ORT CLK TRANSFER (SIZE = -256, DST = (.TEMP_ARRSBNK_SEL + .SEC_CNT) 

: 5990 “SRC7= WRT_BUF L.RAND_INDEX, WRDJ);— . — 

: 599 if .ML_ADDR CMLEE, crc] twas there a crc bit error 

; 230 then 

$ 994 pegne 

; 5995 FAIL_CHIP = .ML_ADDR CMLEE, CHAN; ‘Read the fotting cre bit member 

; 2336 L_CHIP_TBL (.FAIL_CHIP, . AT_SEL); ‘Store away the failing bit and pattern 
: 5998 else 

: 5999 begin 

: 6001 if .ML_ADDR CMLEE, UNC] ‘Was there a uncorrectable error 

3 6006 then 

: 600 bogie 

: 6004 FLG_REG CF_UNC_ERR_FLG] = SET_FLG; !Set the unc error flag for future ref 
: 6005 end: 

; 6006 

Se = 

: 6009 if .ML_ADDR CMLCS2, WCE) ‘Was there a write check error 

; 6010 © then 

- 6011 in 

3 one CLR_MBUS; ‘Clear the s bus of the error 

: 601 BITS TSTED = ZEROES; iClear the bits tested count 

3 oot RD_TRANSFER (SIZE = -256, DST = RO_BUF, SRC = TEMP. ARRSBNK. SEL + .SEC_CNT); 

: 6016 incr BUF_INDEX from 0 to 255 do ‘Find the failing read buffer word 

: 6017 begin 

3 6018 

3 6019 


S550 
S58 


TT 


EE 


BSK 
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EL4 


8 
o 
> 





NEPORSROORS 


ee ead enh oul ceed cen ond ced ed eed ceed cand ad eed eed ob 


= 
~ 


ey 
£&oO 


coed co wend coud eed ced ed ceed ee ond ceed) SED ceed enh oe ed card ced eed eed eed eed ced = ed 
& 





ier 16s07:87 


We -BAD_BITS C.BIT_INDEX] eql ONE !Is this a bad bit 


Par” CHIP = ( -BITS eM ee + BIT I ng mcti” bse 


ate the fail 
L el TBL (. ratic CHIP, .PAT_SEL); 
en 


end; 


B11S_TSTED = .BITS_TSTED + 16; ‘Add 16 bit to the bit tested count 
end; . 

















end; 
ai = .RAND_INDEX + .OFFSET; !Bump the random index if random data 
end; 
end; 
-SBTTL FB.DATA.CHIPS ROUTINE DECLARATIONS 
FB.DATA.CHIPS: 
7 JSR R1,$SAVE5 ; 
SUB # 
CLR s 
000000G MOV SEED § 
007622 0000006 MOV SEED 3 
CLR : OFFSET 
MOV PASS RS 3 
MOV SP) 
INC 1 ) 
CLR R ; PAT.SEL 
JMP 16$ 
1$: CLR 4(SP : RAND. INDEX 
TST R! : PAT.SEL 
BNE $3 
MOV (SP) ,~(SP) : TEMP.ARRSBNK.SE.* 
CLR -(SP) 
BR 3$ 
2$: CMP R141 : PAT.SEL.* 
BNE $3 
MOV (SP) ,-(SP) : TEMP.ARRSBNK.SE,* 
MOV f-1,- ~($P) 
3$: JSR " rs <% DATA 
TST (SB)3 
BR 2 s 
4$: MOV 2(SP) ,-(SP) : TEMP.ARRSBNK.SE,* 
JSR aa RANDOM. DATA 
000010 MOV #2, 10(SP) : *, OFFSET 


Breet onal 22 


‘Store away the bit and pattern 
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5974 


5970 
$977 


5970 
5981 


5982 


~~ oe —_— < 
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2 
re 
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1 
1 
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5986 | 
987 
989 
5990 
989 
5992 | 
995 
5996 
5994 
5992 
6001 
6004 
6009 
6011 








7 
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: 5s & we GS ade . % 
w ew a ee ow <3 4 oo 2 
“3 t3 3 ee «; “zt = & 
wn ea 2 * * u. G. z= v 
ee *%s e*e ee *e . S e*e *e e*e*s *e*e *s6 *e *e 
- Pee) 
a a 
~ 
2 = 
- 
. _ 
ww ~ eam 








NUM 
I 
R 
p 


Sestisks 


gosh goneeze® 


WRT .C 


SESESSSSSSSSILSSS Aha Bee sees late 





2 $ eg 8 


‘fe 
1 
1774 
Sos 
sie 
12 
i in 
S767 161610 
040374" 
ie Si 30004 
040374' 
000042 000040 
000040 
177700 
00012 
164120 
040374 
2 000036 
ae 040422' 
ie St x 
000034 
0374 
10 000032 
0 
0374° 
10 
0374° 
10 000030 


oS SOSSOGOS GOSS 
S23x3 BieeRevE sezeoss PERS a Suse SSS 
355 veh?) 32: 0o 
sss Sos me -o-e Sasessss 
=] oO S00 SesNeSNES DOO- S000 


assumaseensesasasusuasenes erent SSeS Rear 


VVNNNVRSN ANNAN NNN ee RRR ER EER RSRRNSSSESAE ee ee 


SSSSSSSSSSSSSSSSPSISTSS 











96 

1 
6013 
6014 
6016 
6019 
6022 
6024 
6026 
6029 
6031 









Sel ol] 
™N 
+ ad 
ao 
aw 
“4 
~ 
Oo 
w 
~~ 
™ 
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>a 
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- J 
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a = = 2 @ @a @ ama Cee 
= ee ete ee *e *e & ee %e *e ee *s se °*e *e*se 
nN 
we 
hf 
ow 
ee ee 
own ~ 
wey 
See = 
cru ~ 
ao z 
fe te 
wie . 
. & ae e 
ai 3 § : s 
= ~ WW ww ~ 6. 
aa we ww a ~ = w 
or Te en Wut ce ~ eet 
ag « wr te — ce ~~ te om we 












~~ 
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ss tote fea 


wwe % **s ewape & & & 


SNA NO ENESNOINNNSSSVRNSOSE eRe OREa ee 


S>aa>ai>/0,.d Www? | =) 2 => 
SBF SS 7 eae SB aS SS5SSseeseovensece tes 





~ 
a wy 
= 





oy 
‘i S 
& = 


its; ) jfk; ot Se ee 
see ceecei PREZ : 8 
SIOLSSS Soh te mee ISSESEOSS rs SESERSRON OSS | 


++ += = 


Pe eS Eee See eae Oe Pe bet be ee Be Ee Bee Or ee bet Oe Be UE FE Pe be be bet 8 oe PE 8G OE OE ae PE DE DG DG Ds Se! See See ee 


PIRISYSNONE™ ONESIES Sh SY SEN CRESONS RULERS SY SORES EREE 


5 ch eh ee, eek, ae eh, ech, he eh el el el, cel, meh eh, ch, me ch nel eh ee eh eel cel neh eh eh eh ee eh, oh meh eh, eh, ach nh ce eh, eh, a, eh, ah meh 
SO ODO SS aN NON NNO On ee RON anOoOoOOOOOOOOOooF. 
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-_—— —_ --_- 
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r=1 
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R1,-(SP) ; PAT.SEL.* 
163534 PC°L. CHIP. TBL 
25P ; 6028 
118: R + BIT. INDEX 6024 
000017 R #17 : BIT. INDEX,* 
000020 000026 12$: #20,26(SP) : *,BITS.TSTED 6036 
R : BUF. INDEX 6016 
000377 R2,4377 + BUF. INDEX, * 
9$ 
#6,SP 3 6011 
16 000014 13$: 16tSP) .14(SP) * OFFSET, RAND. INDEX 6041 
SP 3 5987 
(SP) * SEC.CNT 5986 
000016 148: SP) . 16(SP) : SEC.CNT,* 
177154 
15$: (SP)+ : 5967 
| R1 + PAT.SEL 5966 
000012 16$: Ri ,12(SP) * PAT.SEL,* 
1770 1 
AA 178: 434,.sP : 5922 





: Routine Size: 268 words 
: Maximum stack depth per invocation: 31 words 
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ROUTINE DECLARATIONS 


routine FB_CRC_CHIPS (TEMP_ARRSBNK_SEL) 
begin 


++ 


; Funct tenes Description: 


crc chips for a  Sanented bank 
aunc error oecuree during the find 
global routine. 


If a bad cre chip is f then 
into the bad ch hip 
data pattern. 


i Formal Parameters: 
: ARRSBNK g 





i Implicit Outputs: 
. none 


i Completion codes: 
i none 


' Side Effects: 
none 


OFFSET = 







Sus bitvector (16); 
= ZERO; 


3°; 
SEEDS = Z0°7622": 


incr CRC_SEL from CRC_P to CRC_B do 
begin 


if not .CHIP_TBL C.CRC_SEL, FAULTJ 
then 

begin 

incr PAT_ =SEL from 0 to ONE + 
"INDEX = ZERO; 





obal routine finds all the iSonly 


it i 
table along with i 


eRAND_PASS do 


hw) A PE ay vetele? 






ear 16:07:87 


: novalue = 


l 


' 

' 

t 

| 

' 

' 

t 

] 

' 

' 

“Stores array and bank select address. 
i Implicit Inputs: 
” RET_ STATUS 
i 

' 

4 

1 

' 

' 

' 

' 

' 


; Starts sector eres at random write buffer words 
‘Random dat co of 
iSave location for nibble prom data 

cceer poe rs ote offset for 1*s and 0°s data 
Hinge a on oe 
‘Init the random ds Sete 


‘Find bad cre bits p. a. b 








‘Did this crc bit fail during ‘fb_data_chips’ 


‘Loop thru all patterns 
‘Reset the random index 
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Se ee Be Se Se Se Se Ge Ge Se Fe Be ee Fe Be Be ee FH Se Ge Se Fe ee Fe Fe Se Ge Se Se Ge Fe Se ee Se ee FH Se Be ee oe BeBe Fe ee Se Se ae Be Se Se os ee 


ss 


SRVERRGR= 


wed ceed ced eed ed od ed etd aed od 


PRAEAXRAAXAXRAXARAXA AA AA AAA AAA AAA OH 
WOONAULSWN =O 


ema ceed ceed ce coed ceed ed eB ceed eed ceed eed ed eed ceed eed cee eed eed eed ceed coed ceed ed eed 


UE WN 


61 


AOAAAAAAAAAAKAO 
ARE RE RPP RE EUW 
SSBUSEGEGALSSBVER 


— ee re ee ee ——__ _— 
- _— - - 
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setectens -PAT_SEL of ‘Select a pattern 
se 


0) : 
. DM_1_0_LOAD (.TEMP_ARRSBNK_SEL, ZEROES); 
[1] : 
DM_1_0_LOAD (.TEMP_ARRSBNK_SEL, ONES); ‘Load ones data 
Cotherwise] : 


='gA0 (. TEMP_ARRSBNK_SEL ‘Load random data 
‘Enable ;™ random data offset 


‘Load zeroes data 






DM_RAND 
OFFSET 
end; 
tes; 
DM_RD_TRANSFER (SIZE = -256, DST = RD_BUF, SRC = .TEMP_ARRSGNK_SEL); 
case eee from CRC_P to CRC_B of ‘Select the failing cre bit 
se 
[36] : ‘Test cre bit p 
begin 
incr SEC CMT from 0 to .BNK_NUM_SEC do !Read thru all sectors 


a from 0 to 127 do 
PD_SAVE = .ML ADDR CALPD, REG); 
ad ou the pres data for this word 
DAT_CLK; iclock “the data e into the diez reg's 
+! ne -PD_SAVE CCRC_NIGBLE) 'Is this a good nibble 


begin 
then CMLE2, 8.36) neq .WRT_BUF [(.RAND_INDEX + .WRD_CNT), BIT_12] 


‘Read thru all words in sector 








tile bh (.CRC_SEL PAT StL): 
Save the failing chip and pattern 


—— = .RAND_INDEX + .OFFSET; !Bump the random index 
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o 
—— 


—s 


6151 
6133 
arr: 
155 
6 
138 
133 
6 


e8 


64 
165 


ad 


oy eed weed eed ed ood 


SAVASSSSS. 


PAAADAADOD-DO.O- 


PAQAAAAAaSAA AAAS 
ek aed ed ce ad ae ed a ceed ed ed ee aed we aed ce eed eh ae ed ed 


BELELLASLSSSLEGLAGIS Sa 


te eS ee + 
Ct 


dD 3 
1B-mar=1969 18:06:61 pean Bii-t (50) se0'0235, 


end; 


(37) : ‘Test cre bit a 
begin 


incr SEG CHT from 0 to .BNK_NUM_SEC do !Read thru all sectors 
AK; 


incr WRD CNT from 0 to 127 do ‘Read thru all words in this sector 
PD SAVE = -ML_ADDR CMLPD, 'Get 7A words prom data 


DAT_CLK; (Clock out re into the diag 

a. not .PD_SAVE CCRC_NIGBLEJ 'Is this a good nibble 
n 
begin 


+ teas ADDR CMLE2, 8.37] neq .WRT_BUF [(.RAND_INDEX + .WRD_CNT), BIT_13] 


PeaHIP. TBL (.CRC_SEL, .PAT_SEL); 
'Save the bad chip and pattern 
end; 
end; 
end; 
ates = .RAND_INDEX + .OFFSET; ‘Bump the random index 





‘Test cre bit b 


incr SEC_CNT from 0 to .BNK_NUM_SEC do ‘Read all sectors 


incr WRD_CNT from 0 to 127 do ‘Read all words in this sector 


begin 

PD_SAVE = .ML_ADDR CALPD. PD_REGJ; 

DAT_CLK; retbck out ets lite diag regs 

HF hy -PD_SAVE CCRC_NIBBLEJ 'Is this a good nibble 


begin 


ie CMLE2, 8.38] neq .WRT_BUF [(.RAND_INDEX + 


'Get ~~’ prom data for 


-WRD_CNT), BIT_14] 


Se ie 
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pattern 





—— = .RAND_INDEX + .OFFSET; !Gump the random index 


tes; 


‘Clear the single step dma mode 








-SBTTL FB.CRC.CHIPS ROUTINE DECLARATIONS 











FB.CRC.CHIPS: 
JSR $ 6047 
SUB 
CLR 3 OFFSET 6083 
CLR 3 6084 
MOY 3 6085 
MOV 3 6086 
MOV 3 6038 

1$: MOV . 3 6091 
BI 

23: OV 3 6095 
MOV 
INC 
aS : PAT.SEL 

3$: C RAND . INDEX 6097 
is maa $33 
rt: : TEMP.ARRSBNK.SE,* 6103 

4$: orp : PAT.SEL,* 6099 
BNE 





F 3 
4 18-Mar-1 16:07:57 TOPS- Liss-16 V2(212) Pp 2 | 
REV 6 PATCH 00 ROUTINE DECLARATIONS 1 r-1985 18526324 Pee SNEALESPASKL 2 «C11 (50) SEQ°02 , 
SP) -(SP) P} TEMP .ARRSBNK .SE ,* 6106 | 
























MOV 60° 
MOV #~1,-(SP 
160304 S$: JSR p bn. .0.LOAD 
an , ss 
6$: mov sp * TEMP. ARRSONK.SE,* 6110 
000004 MOV #2. : *, OFFSET 6111 
7$: OV and ; 6115 
e MOV #RD (SP) 
, MOV (SP) 
MOV ( (SP) ; TEMP. ARRSBNK.SE,* 
, MOV (SP 
15 JSR BC .DA.RD. TRANSFER 
MOV R1-R5 : CRC.SEL,* 6117 
000044 sus #4l RS 
022356" ADD (RS) PC 
8$: - WORD 
16° 000014 9S: B , SEC, 14(SP) : 6123 
is : CLR tsp pes : SEC.CNT 
22400 10$: TRAP 5 : 6124 
122460¢ CLR : WRD.CNT 6127 
3: 11$: MOV . : 6129 
12; MOV agi ) ,46(SP) : *,ML.REG 
2; mov (SP) -42(SP) : ML.REG,PD.SAVE 
Ja s 
NID4 Of ROY ABER ; *,ML.REG 
1554 8 MOV SP) -R4 : ML.REG,MLREG 
92 8188 : *,MLREG 
2446 MOV 4 RS 
ey MOV 2 (RB) : MLREG,* 
1226 5¢ ITB 8 : *, PD. SAVE+1 6133 
“7 A664 1 
he mov : sym REG, 
f AOD WAND INDEX, « 
ASL 
BIC 
st : ML.REG,* 
mov : CRC.SEL.* 6140 
MOV : PAT.SEL,* 





o= (SP) 
PC,L.CHIP. TBL 


163000 


be 
x 


ee SR OS 


6 3 | | 
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CMP (SP)+, (SP)+ ; 6139 
128: INC 3 WRD.CNT 6127 
900010 000006 10(SP) ,6(SP) 3 OFFSET RAND. INDEX 6148 
00012 ONE 4 (Sp) . 3: SEC.C f 6123 
100012 000014 13S: CAP (SP) ,14(SP) : SEC.CNT,* 
600 BR 1 ; 6117 
16° 000014 14$: MOV oNUM.SEC.14(SP) : 6156 
y: 800013 cLR Py ; 
122616 15$: TRAP ) ; 6157 
122622 016 16$: MOV ; 6162 
03: 56 01 MOV 7 
22 
a iY . 
fier i MOV : 
1226 1 MOV : 
eee ine nov , 
1336 7( MOV ; 
99676 9 7 oi re $ 6165 
om Bt By : ~ 
153724 O063C ASL ° 
3 & 016506 MOY 
199732 042706 
vey 7. 16 5( i $ ML .REG.* 
122742 042704 1 BIC 
Reares Gee ow 
iy ' 46 MOV ¢ CRC.SEL.* 6172 
92 0246 ayy ? PAT.SEL.* 
ie 004767 162562 JSR ; 6171 
122764 00520: 17$: INC ; 6160 
re 2¢ 7 000177 ce : 
+ MLbbz JOOL 000006 é 6180 
12 3002 N05 266 pone nes P 6156 
+t +o 105.26 +++ 
923006 026666 000012 000014 18S: CHP ; 
Og301% 005706 198: BR $117 
923020 016766 040416" 000014 208: MOV : 
3028 903066 000012 sh enue 
123034 1 53 21$ TRAP ; 6189 


er ee ee ee 


ee —<—— 






















H 3 
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REV B PATCH 00 ROUTINE DECLARATIONS a at 19:00:23 PA: Ri espmext tect (50) s£0"6259 | 
1230 %¢ CLR : WRD.CNT 6192 | 
13 2046 228: MOV ; 6194 
1336 MOV 3 *,ML.REG | 
023 MOV ; ML.REG,PD. SAVE | 
; 4 MOV | 
12 306 MOV 3 *,ML.REG | 
923¢ MOV ; ML.REG.ALREG | 
123076 B1S8 : * ,MLREG 
sate MOV 6.* 
2311 B178 : TD SAVES! 6197 
02 312¢ BNE 
231 MOV : 6201 
Je 126 MOV P o 
0231 MOV : »CNT,* 
1231 36 ADD { * RAND. INDEX, * 
9231 ASL R 
231 MOV 
023150 BIC a 
53180 we OO Jeeta 
123164 CMP R4,RO 
231 BEQ 
1231 MOV R1,-( : CRC.SEL,* 6204 
1231 MOV R2,-( * PAT.SEL,* 
2317 JSR t. 
023206 cep (SP)+ ; 6203 
1232 23$: INC : WRD.CNT 6192 
023 ; we #1 D4 WRD.CNT,* 
2321 ADD ¢ (SP : OFFSET,RAND. INDEX 6212 
12322 INC 12(SP + SEC.CNT 6188 
223204 24$: CMP } (SP) ,14(SP) : SEC.CNT,* 
12323< BLE § 
12327 25$: ADD SP : 6096 
02524 INC ; PAT.SEL 6095 
vy 3242 26S: CMP R2,10(SP) : PAT.SEL.* 
iy 2 4€ BGT 
' 25C JMP 
9232! 27$: INC @ ; CRC.SEL 6088 
025256 CMP R1 #46 : CRC.SEL.* 
02326 BGT 
023264 mS 
02327 283: MOV : 6222 
023274 MOV 1 : *,ML.REG 
92330¢ MOV : ML.REG,MLREG 
1233 BISB : &,MLREG 
023: MOV mt 
a my —_ 
' 532 ‘ MOV 1 e * .AL.REG 
02333 MOV 1 * ML.REG,MLREG 





—eer - eC; + ee 


ee I a ge Eh | 
Viens enn inatinn igchor“19Hz 16:07:87 JRPERO eLIsscte yeeet2y,,, © aoe 205 


° MOV RS 
BIC #177770,R5 
sl eA : 
1: 009010 MOV Re 4 OCRS) : MLREG,* 
ADD #42,SP : 6047 | 





RTS PC 
; Routine Size: 340 words 
; Maximum stack depth per invocation: 28 words 
i 


re errr ae 
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; routine FB_CHIPS (TEMP_ARRSBNK_SEL) : novalue = 
: > begin | 
: 2 ae 
: : unct one scription: 
: é eek i rout ine calls the ‘find bad ir A pate and 
: ¥ i ing? bad crc thip® Aieken routines whic arch 
; this tested bank and find and log atl faili ng chips. 
: 5 i If the fb. data_chip gl tine detectes @ unc 
; , error then the fb_ ercich ; 9 obal routi ne is not 
: called. 
: i Formal Parameters: 
‘ 5240 ! SEL: 
; : ih Stores the array and bank select address. 
: 5243 | Implicit Inputs: 
: : - FLG_REG 
: : i Implicit Outputs: 
$ : s none 
; : 
s : mh ! Completion codes: 
: : 33 i Side Effects: 
3 : : none 
: 6254 !-- 
3 6255 
: 5256 FLG_REG CF_UNC_ERR_FLG] = CLR_FLG; ; Clon ar the uncorrectabie error flag 
: 525 1_CcRIP TOs 'Init the bad c table 
: se38 iB DATA Ch CHIPS (. TEMP_ARRSBNK_SEL); ifind all the creas data chips 0-35 in this bank 
3 5260 if .FLG_REG CF_UNC_ERR_FLG] then FB_CRC_CHIPS (.TEMP_ARRSBNK_SEL); 
4 'Y: t 
; 2264 its ‘Find all the bad cre chips in this bank 
-SBTTL FB.CHIPS ROUTINE DECLARATIONS 
023374 142767 000002 040422° FB. CHIPS: 
B1¢CB -FLG.REG 3 6256 
767 1 Mere JSR Pel CH a | : 6257 
1 nov 2 P). = : TEMP. ARRSBNK.SE.* 6258 
767 000002 040422" BIT #2.FLG.REG : 6260 
1 ogoges MOV 4(SP) ,-(SP) : TEMP.ARRSBNK.SE.* 
6466 JSR PC,FB.CRC.CHIPS 
TST (SP)+ 
7, 1$: TST (SP)+ 3 6227 


BSKEL4 -Mar-1 75 TOPS-20 Bliss-1 veCete) 07 | 
REV B PATCH 00 ROUTINE DECLARATIONS 1gciar=1982 18; Mia 4:4 PA:<NEALE>PMSKL4.BL1.1 (51) s60°6202 ) 
023442 000207 RTS PC ; 6226 | 


; Routine Size: 20 word 
: Maximum stack depth ps invocation: 2 words 





BSKEL4 
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AAA ODO 


: 
: 


NN 


ANC 





Wh 





ROUTINE DECLARATIONS 





ih pew) A Eady OD Me eee 52) 


1gchar=1982 1939032 


routine PM_THIS_BANK (TEMP_ARRSBNK_SEL) : novalue = 
begin 
' ++ 
Funct tenet Description: 
This global roy tne qn cousins aM. will 
find newly failing ch oS. toad 
inter’ « 4, 2. arrer falting ad the “blast” table 
with a fai and columns 
~ Roe I 
Formal Parameters: 
ARRSBNK_ 
“Stores the array and bank select address. 
Implicit I 


> LG. REG 


I users ~— 
” Sch failing chip gets PM'ed the fault bit 


* the flag register gets clear 
Completion codes: 
none 


Side Effects: 
none 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
7 CHIP_ 
i 
' 
i 
i 
i 
i 
i 
i 
i 
— 


ocal 
BAD_CHIP, 
LST_PAT; 


BAD_CHIP = S_CHIP_TBL (ZERO); 
if .BAD_CHIP geq ZERO 
then 


in 
Pre REG CF_ALL_BAD.CHIP = CLR_FLG; 


in 

SEED1 = ZERO: 'In 
SEED? = = 0: 1233"; iu 
FLG REG F_ERR_MAP_ENTERED) = CLR_FLG; 
I_ERROR Q: 

ist PAT Ts ZERO; 

do 


begin 


‘Points to bad chips to be tested 
‘Last pattern test for this. failing chip 


‘Find a bad chip to test 
‘Are there any chips to test 


‘Clear the all bad flag 


it the random data seed! 
‘Init the renee data : 
nit t ata 
iClear the entered error map flag 


‘Init the error ae 
‘Last pattern starts at zero 


'Test all failing patterns for this bad chip 


Pa 
SEQ’ 0245 


208 | 
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LST_PAT = L_ cA ING_CHIP (.TEMP_ARRSBNK_SEL, .BAD_CHIP, .LST_PAT); 
L_E MAP™ (. TEMP_ARRSBNK_SEL, ;BAD CHIP); 
iLoad the error map with failing rows and columns 










end 
until .CHIP_TBL C.BAD_CHIP, PATS] eql ZEROES; ‘Repeat until all patterns are tested 
: ; -FLG_REG CF_ERR_MAP_ENTERED) ‘Were any failing rows/cols detected 
en 
in 
INSERROR_MAP (. TEMP_ARRSBNK_SEL, .BAD_CHIP); !'Interigate the error map 
else 
beRer (ERR_4, UNC_CHIP art § 0); 'Report pee uncon tsrmes 
PRI NTB (A_B_C_PRIRT EL<.ARR PmARRSSEL, SIZE>, 
MP-ARRSENK.. SEL<. BAK SEL_POS, BNKSSEL™ “Sie>. “BAD.CHIP); ‘Report where 
CHIP_TBL C.BAD_CHIP, FAULT] = CLR_FLG ‘Clear this chips fault flag 
BAD_CHIP = $_CRIP_TBL (.BAD_CHIP): Rind the next failing chip 
until (.BAD_CHIP lss ZERO) or (.FLG_REG CF_ABORT_ARRAYJ); ‘Repeat until all bad chips tested 
end; 
end; 
-SBTTL PM. THIS.BANK ROUTINE DECLARATIONS 
0000006 PM. THIS.BANK: 
JSR ad | SSAVE4 $ 6264 
170632 OS S. CHIP. TBL : _ 
3 , MOV ec. 5 es : *,BAD.CHIP 
BLT 5 ; 6299 
0000 040422" B1cB #20,FLG.REG ; 6302 
7 1$: CLR e 6306 
7 MOV # SEED ; 6307 
7622 MOV Fj SEED ; 6308 
0422° B18 as. 6.REG : 6309 
161530 JSR PC,1.ERROR.MAP ; 6311 
CLR R : LST.PAT 6312 
7 : Ri : BAD.CHIP,* 6320 
000016 MOV 16(SP) ,R2 : TEMP.ARRSBNK.SE,* 6316 
2$: MOV R2,-(SP) 
MOV R3,~(SP) : BAD.CHIP,* 
MOV R4,-(SP) : LST.PAT,* 
162220 JSR oe 
MOV aR4 : *,LST.PAT 
MOV R2, (SP) ; 6317 
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PA:<NEALE>PMSKL4.BL1.1 (52) SEQ 0245 
4 MOV R3, -(SP) ;.BAD.CHIP,* 

watees vei 1 $013 a. lee : 6315 

0 D3 se) a0o04 030230° BIT 77977. CHIP. TALCR1) ; 6320 

023576 05: 767 000004 040622" BIT 4. FLG.REG 6322 

193606 019 MOV —-R2.=( SP) 6325 

193610 01 56 MOV -(SP) ; BAD.CHIP,* 

23612 Of pf 174546 JSR ns , IN. ERROR .MAP _ 

023620 104454 3s: TRAP, 6329 

y 624 001454" “WORD UNC. CHIP.MSG 

0236 010346 Rov 43, (SP), ; BAD. CHIP, * 6331 

02365 60616 mow ADD | SP a on ; TEMP. ARRSBNK.SE,* 

$ 64 12766 ated MOV We es -(SP) 

iF. ‘ ’ WN 4 . 

0236 904 76 0000006 JSR PC $GT2 

ee M5668 900002 OV a $e) 

123664 ! 16 4 pred aah (3 ; TEMP. ARRSBNK.SE,* 

5eeS Ohetee 060612" MOV ARR. SEL.POS,-(SP) Sate ~~ 

iy 7 . 15066 CLR a SP) 

Bet face, cmon eh, 

193712 010066 | MOV »2(8P) 

ee Hoe Re B Bi Fhn 

1237¢ ’ . MOY #4 ,-(SP) 

12372 S 010606 MOV ‘ : SP,* 

De 73 2706 og & , e 6 

say if ; 700000 030230 ‘s+ fov ‘i — BAD.CHIP,* 335 

B74 04767 170336 JSR °$_ CHIP. TBL accent 

a 0570 — SAD. CHIP 6337 

” I ; JK e . 

93760 BLT 

3762 03 000100 040422" BET = ROO. FLG.REG , 

853555 boss ss: st (SP) | 6364 

a 10026 “RTS PC ; 4 


; Routine Size: 109 words 
; Maximum stack depth per invocation: 12 words 





EE 
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g routine CAL_CHK_SUM : novalue = 
begin 












REG, BLAST_TBL. ERROR_MAP 


Implicit aes 
The error map and blast table is loaded w o ime 
checksum values: for the newly discovered. #4 ling poe 









% 

; 5 1+ 
h | es Description: 

: Lobal reusing will calculate the new 
chack’ sume oume yolue s for the prom data to 

5345 be blasted into the selected arrays 

3 — 

: 28 Formal Parameters: 

53 none 

5355 | Implicit Inputs: 

8329 

3329 








5 3¢ column ses. 
636: ion codes: 
fects: 
none 
local 
PD_SAVE : bitvector (16), {genres the prom prem dove te be calculated 
s number of bit bet 
ifounes the old. check sum value 
‘Stores the camber of count to update the check sums with 
Label 
$ ‘Leave loop label 
MOP ERROR_MAP : blockvector (4, 512] volatile: (Make the error map look Like the blast table 
incr BNK_SEL from 0 to 3 do ‘Look at all the banks 
begin 
: { ae fn Jae C.8NK_SELJ 'Is this a bad bank 
begin 
iner — from 0 to .MAX_CHIP_COL*2 - 1 do ‘Look at all the rows and columnsns 


; { AAGT Tet C.BNK_SEL. .PD_WRD_SEL, FULL_WRD] neq ZERO 'Is this location enpty 





SKELS 


8 
REV B PATCH 00 ROUTINE DECLARATIONS 
6394 A: 


rSSSSS ss 
FALLS 


SRVET 


eed cand ed eed ceed creed eet ced ced eed 


FRESSSSSSSSFSSSSSSF 
MEWIN =@O OONAULSWN © 






FFFFSFSEEF 


PEPPPERES 


$ 
vs 


begin, 





9 CNT = ZERO 
CAR SUR (NT = 2 7E 
PD_SAVE = 


RO; 


incr CNT from a to 9 do 





SENRINDER = 





“pbO-9 CNT = «CHK. SOM.CN 


if .REMAINDER geq 4 
then 


begin 
if .PD_SAVE<12, 1> eql ZERO 
then 





in 
POSAVEC2, y = SET FLG; 


REMAINDER 











Bliss- 


‘Clear the coum 
‘Clear the count 
T_TBL C.BNK_SEL, .PD_WRD_SEL, FULL_WRDJ; 


‘Count the # of bits set in 0 - 9 
if .PD_SAVE C.CNTJ] then PD_O_9_CNT = .PD_O_9_CNT + 1; 


-PD SAVE<IO. 3? 





Set tf . 3 old count 


SESSA Sb Sect 
BEOSUMTENT + + “PD” SAVECIS, > 


= many more to enter 


'Do we add in more than 3 


REMAINDER - 4; 


if .REMAINDER eql ZERO 
then 


if .REMAINDER 2 
then vsti 


begin 
if .PD_SAVE<11, 1> eql ZERO 
then 





peo AVEC11. + = SET_FLG: 
REMAINDER = : 









* eats 


'Is this bit already set 


‘Set this bit 
‘Subtract the weight 


‘Are we all done 


be PBs WRD_SEL, FULL_WRDJ = .PD_SAVE: 


“SEL. FULL “WRDJ = .BLAST_ 


ae Loop 


'Do we add in more than 1 


REMAINDER = 2: 


if .REMAINDER eqi ZERO 
then 


begin 


‘Is this bit already set 


:Set this bit 
‘Subtract the weight 


‘Are we done 





-20 BL 16 
ALE>PMSKL4. 


'Get this prom dtat word 


—— —— 


v2(212) Page 212. 
BLI.1 (53) 070 


SEQ 0247 


nn — - — 





BSKELS 
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15:44:41 A:<NEALE>PMSKL4.BLI.1 (53) SEQ 0248 


-PD_WRD SEL, FULL_WRDJ = .PD_SAVE | 
» «PD RD. SEL, FULL-WAD) = -BLAST_ TL C.BNK_SEL, | 






5 

















if .REMAINDER eql ZERO ‘Are we done 
then 


BUXST_ ret 


BNK_SEL, PO. WRD_SEL, FULL_WRD] = .PD_SAVE: 
= .BLAST_TBL C.BNK_SEL. 






-BNK~ SEL wa ; PD EURD SEL, FULL"WRDJ 
“SEL; FUL 
| wabd: the loop 





64 
64 
64 
64 
64 


91 
9 
9 
94 
6495 


: 644 

; $29 

; 6451 

; e438 end; 

; 64 

6455 = 

; 6496 if .REMAINDER geq 1 'Do we add more than 0 

$ 2 then 

ot28 = 

: 6460 if .PD_SAVE<10, 1> eql ZERO 'Is this bit already set 
; 6461 oe 

: ores PD SAVE<1O, 1> = SET FLG: ‘Set this bit 

; re: REMAINDER = .REMAINDER - 1; ‘Subtract the weight 

: 6466 if REMAINDER eql ZERO ‘Are we done 

3 646 then 

5 6468 Breet rat 

; 6469 -BNK L. -PD_WRD_SEL, FULL_WRDJ = .PD_SAVE; 
; 64 ERROR PAB “PD RD “SEL, FULL-WRDJ = .BLAST_TBL C.BNK_SEL. 
: re leave as SEL; FULL WRB the t 

: onte end: _ 

. 6474 

$ 6475 end: 

; 6476 

: one end; 

; 6479 if .PD_SAVEC13, 1> eql ZERO !Is this bit already set 

; Be CAVECI3 1> = SET_FLG 'Set this bit | 

e e = e : 

; REMAINDER = .REMAINDER - 1: 

: 5 





FF 
oO 


ta aati 1> eql ZERO !Is this bit already set 


A 





eee ee 


asus 
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; pesin | 
: $138 SAVE<14, 1> = SET_FLG; 'Set this bit 
: é RERAINDER = -REMAINDER = 1; iSubtract the weight i 
: é if REMAINDER eql ZERO ‘Are we done | 
; 6 
3 6 ~-BNK_SEL, .PD_WRD_SEL, FULL_WRDJ = .PD_SAVE; 
: 6 .BNK~ SEL. PD pp und SEL, FULL-WRDJ = .@LAST_TBL C.8NK_SEL, 
: 6 _WRD_SEL, F 
: 6 : vy ed the loop 
; é 10 
; e My 
; rea 
; 6514 
: $313 C.BNK_SEL, .PD_WRD_SEL. 
; g2i$ 
3 e218 
$ 651 
5 6 
3 e 1 
3 65 $ 
g 6524 
; 6525 
-SBTTL CAL.CHK.SUM ROUTINE DECLARATIONS 
CAL. CHK. SUM: ? 
JSR R1,SSAVES : 6342 
SUB #16 sP 
CLR (SP : BNK.SEL 6382 
1$: MOV : BNK.SEL,* 6385 
ASR 
ASR 
ASR 
ADD 
MOV 
oe 3; BNK.SEL.* 
BIC 
MOY 
CLR 
JSR 
ADD 
ROR 
rs 
2$: MOY ; 6389 
ASL 





| 
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REV B PATCH 00 ROUTINE DECLARATIONS eer} 1 esa) PA:<NEALE>PMSKL4.BL1.1 (53) 56276250 | 
024076 01160C MOV »,RO : BNK.SEL,* 6392 

0241 0) 200 SWAB 

5241 CLRB 

1241 ASL 

0241 12 MOV 12(sP) 

de 1 CLR 4( : PD.WAD.SEL 6389 

‘ 

134% 3$: MOV 4(SP) RS : PD.WRD.SEL,* 6392 

ae4t 2 ADD 1 (SPS RS 

1241 * 000010 MOV T.TBL,10(SP) 

Bile lanes aR musty 

1241 1 TST a16(sP) 

1241 BNE 4 

1241 14 JMP 15$ 

124160 4$: CLR (SP) : PD.0.9.CNT 6396 
¥ 164 CLR (SP) : CHK. SUM. CNT 6397 
1241 10 000016 MOV a10(SP) , 16(SP) : *,PD.SAVE 6398 
124 176 CLR R4 > CNT 6400 
124200 S$: MOV oR3 ; CNT,* 6402 
N34. y ASR 

194206 ASR 

134506 ASR 

02401 000016 MOV «#16. R2 

124214 ADD SP, : PD.SAVE.* 

124216 ADD ° 

124221 MOV *=(SP) 

12422 MOV ~(SP) : CNT,* 

0242, BIC s4 (SP) 

2423 MOV 0s #1, ~ (SPJ 

02623 CLR ~(§p) 

124236 JSR $6 

026.24. ADD 

0242466 

02405¢ Ape CGKSP) : PD.0.9.CNT 

pene INC RE : CNT 6400 
pene ae 11 ; CNT,* 

124264 (SP) .R4 : PD.SAVE.* 6404 
194370 

d24e Ask OG 

; SWAB ORG 

124 ) BIC #1 R4 

124 302 HUES ; *.CHK.SUM.CNT 

154 30¢ CLR ; 6405 
12431 T # .16(SP) : *,PD. SAVE 

Skt One 

i se 000002 6$: ADD R4,2(SP) s *, CHK.SUM.CNT 

; 26 CLR R4 3 6406 
02433 040000 0600016 BIT #40000, 16(SP) : *,PD.SAVE 

124 33€ BEO 
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| 
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NRO 
SSFAVGS 


San 
Stsy 
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~J 
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Strate 
SSS 


le Gal te ee ee ee eee 
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SSASEsE 
cant 
SSsSo 
<n 
Wwe f= 


RIPON 
RAs 






ROUTINE DECLARATIONS 


000002 
000016 


000016 
000016 


000016 
000016 


000016 
000016 


000016 
000016 


000016 
000016 


Ss. 


000014 


7$: 


10$: 


118: 


tei bt tot Soa 


eRe ramen 
4~Oowmamn4oww 


Sgnene 


eae 
“Anon 


SeAgz aR IESS 


18-Rar=| 


R4 
R4,2(SP) 
ag” 
16(SP) 
Re 2(SP) 
(§P) ,R1 


(SP) ,R1 
R1 a4 


#10000, 16(SP) 
#10000, 16(SP) 
#4,R1 

14$ 

R1,#2 

#4000, 16(SP) 


2 16(SP) 












» 16(SP) 
o 16(SP) 


o 16(SP) 
» 16(SP) 


» 16(SP) 
- 16(SP) 


eel 


(SP 
_— 


(SP) 
( 


) #3 
1 
i 
#20,SP 


woe ee ee 


TOPS-20 Bliss-16 V2(212) 
PR SNEALESPASKL -BLI.1 (53) 


* , CHK .SUM.CNT 
PD. SAVE 


*, CHK. SUM. CNT 
Pb.0.9. CNT REMAINDER 
CHK. SUM. CNT ,REMAINDER 
REMAINDER, * 


d 








* ,PD. SAVE 





* ,PD.SAVE 
* ,REMAINDER 


REMAINDER , * 
* ,PD.SAVE 


* PD. SAVE 
* ,REMAINDER 


REMAINDER 
* ,PD. SAVE 


* PD. SAVE 
* PD. SAVE 
REMAINDER 
* PD. SAVE 


* PD. SAVE 
PD. SAVE,* 


PD .WRD.SEL 
PD.WRD.SEL.* 





BNK.SEL 
BNK.SEL.* 
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| 
| 
6407 


6342 
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REV 8 PATCH 00 ROUTINE DECLARATIONS 
024634 000207 


: Routine Size: 208 word 
: Maximum stack depth per invocation: 


18 words 


RTS 


PC 





rrscz0 9 sLisstg ¥ 


‘ 12) 
Beis 17453) 


se0"6282. 
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TOPS-20 Bliss-1 (212) 
ROUTINE DECLARATIONS PA: ALESPRSKL Beit O56) 


routine BL_PROMS (ARRSBNK_SEL) : novalue = 
begin 


het 

i meets Description: 

nee A Lobal A og boy will search through the blast 
non-zero locations and 

— will blast tested array modules UV proms 

with the new prom data. 


Format Parameters: 
ARRSBNK_SEL : 
Stores the array and bank select address. 


Implicit BAD BAK RE 





REG, BLAST_TOL, FLG_REG, RET_STATUS 

tapi tes Outputs: 
The data @ clos time out flag in the flag vesteter 
will be set if this control logic times out. 


Completion codes: 
none 


Side Effects: 
none 


labei 
A; ‘Leave loop Label 
| ‘Stores the generated add 
é ra 
FINISH; — — 


if .BNK_NUM_SEC eql 127 then FINISH = 127 else FINISH = 255; ‘Is this a 16k part 


pA Anas # epee writes 
ZEROES; iClear 

a a 4> = .ARRSENK_SEL<.ARR_SEL _POS, CARRSSEL SIZE>; 

incr SEL_BNK from 0 to 3 do ‘Loop thru all the banks 
begin 

if .BAD_BNK_REG (.SEL_BNKI 
then 


in 
pen ADRS<10, 1> = ZERO 
PROMTADR $<8, 2> =. SEL BNK: 


incr ROW_NUM from 0 to .FINISH do 





‘Select the array 


'Is this a bad bank 





:Load the row address select bit 
‘Load the bank select 


‘Blast all the new row prom data 


a 18 
sEQ°0253 


-_- 


: 
| ee oe ne ge 


ee ees aoee = ee 


BSKEL4 
REV B PATCH 00 ROUTINE DECLARATIONS 


et ecec ae at 


begin 






PLAY Cte TY _MS); 
if .ML_ADDR CMLMR, D_CLK 
then 


REP A368 As) 
FIME Sones = "SET _FLG; 






end; 


end; 


if .BLAST_TBL C.SEL_BNK, .COL nt 


then 





in 


PRIN 
FLG_ 
leave 


ERASE - 


BRE 
A; 


eave 





PROM_ADRS<10, 1> = ONE; 
incr COL_NUM from 0 to .FINISH do 
begin 





10, TI 


ONE_MS6. 





_RH wows oA “REG, Ge PROm_ADR 
uRT RH (MLPD, PD-REG, “BLAST Te rBL 


CLK, 


ADRS<O, 8> = .COL_NUM; ! 
unt I APA. PA. 
DAT- CLK; 

DELAY (FIFTY_MS); 
if .ML CMLAR, D_CLKJ 
then 





ONE ASG ' 


PRIN 
FL Res ieee Se, SummES nee 








1s-har= 
16-Mar- 


L900 






igatt te 


the row number 
iselect the prom address 
NUM, 





| hm 0 yA EE a v2¢ ef 2) 


1983 18: er >PMSKL4.ELI.1 (54) 


if .BLAST_TBL C.SEL_BNK, .ROW_NUM, FULL_WRD] neq ZERO 


penin aes 


WRT 


'Is this table entry not zero 


Ames *URD)); 


—-7"F prom data { 
for the write to A 


‘Did the data clock time out 





‘Report the error 


‘Turn on the column addresses 
‘Blast all the new columns 








¢ ra ae 





thismtebt table 





the column number 
eit” ect the prom 
L_BNK, .COL PM + a 


FULL_WRDJ ZERO 
ENTRY NOT ares 












address 
-COL_BASE, FULL_WRDJ); 





ta 





‘Wait o the write to complete 
‘Did the data clock time out 





6 


"SET .FLG; 


‘Report the error 


‘Load the prom data 


Page 219 


SEQ 0254 


ee 
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: 
== 
o 


RLS 
BRS Sevag 


SPESEEE 


S30 







, ee 


aNNSt 


.* 
“fT 


end; 
66 $ end; 

66 end; 

6635 

66 CLR_MBUS; 

6637 DELAY (TEN_MS) ; 


004167 0000006 

IST BEE. corr 
1 7 000177 000002 

2766 008 77. 000002 





BL .PROMS 


4 
1982 16:07:57 TOPS-20 Bliss-16 V2(212) 28 
1983 13:90 324 PA: <NEALE>PMSKL4.BL1.1 (54) 5527625 





Wh 
© 


‘Clear the prom write enable 
‘Wait for the voltage to settle 


-SBTTL BL.PROMS ROUTINE DECLARATIONS 


pe gregeaceaeaeasangey 


ASL 







att 
tiouy Gre Bay 
Gunn 


«.. BW 
Sacs= 


. — 3 6526 
Fak. SEC 8177 ; 6561 
#177,2(SP) 3 *, FINISH 
i377, ; *,FINISH 
( ; *,ML.REG 

* ,MLREG 











: MLREG,* 
* PROM. ADRS 6564 
; 6565 
: ARRSBNK.SEL,* 
SP) 

to, 

2 

# 4090.43) 

R : 6567 
: SEL.BNK,* 6571 


SSSSRS 
= 


ee 


; SEL.BNK,* 


SAAS 
oo 





a 21 
se0°0256 


2) 
(54) 


Cr 
~w 
Set Com 


™~ 


V 


e 
ov 
o- J 
‘= 
“ 


is 


— A 


TOPS-20 B 
SP ONEALE 


Lt 
ww 


af 


$366: 


wre 


iNE DECLARATIONS 


REV B PATCH 00 ROUT 


BSKEL4 


ie 





6580 


w 
< & RL 
w wr Ww 
y=) oO ~o 
* 
= 
: 2 
_J 
wn & 
*e oe 
oF 
a os 
Ya) a. 
™ ae WY 
2Ssee = 
«= ~ . wr ee 
wT ww r- 
ervugeece2eecececeeceaee 





6587 
6589 


2 
OO 


6583 
6592 


6584 


eREG 
REG 





ROW. NUM, PROM. ADRS 





s ROW.NUM,* 
PROM.ADRS 

3; *,ML 

$ %, 





et gee 
S2 


3 
ge HE Ravurcyexeee 





SSBESSESSEREEEEGEEDEELORESEE ESS 
SeeoNseseeas= 


$£ 88 


5$: 





LL LLL LLL LLL LOL LL LLL LLL LLL LL LL LL TC A GSS eee erence 
———— 


mM 4 
9 
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REV B PATCH 00 ROUTINE DECLARATIONS 1 a a tS 13397323 PA: <NEALE>PMSKL4.BL1.1 (54) SEO°0257 
025 12 

02531 TIME .OUT.MSG | 
02531 C | 
02531 EP.M7363.MSG,~(SP) ; 6593 | 
= (SP) | 
iy 4 
; SP,* | 
025 

025 ; 6594 

125 

iy . ik 

025 : SP, 

Ne ; 6595 

10$: : ROW.NUM 6577 

+3 118: ; ROW.NUM, FINISH 

995 : *,PROM.ADRS 6603 

0s ; COL.NUM 6605 

’z 12$: : COL.NUM,* 6608 
5584} is 

92542 : PROM. ADRS 6612 
02542 R4.R3 * COL.NUM, PROM. ADRS 

1254246 MOV -ADDR,R ; 6613 
0254 3C 000026 MOV (RI) .26 SP) ; *,ML.REG 

de: MOV J : ADRS ,MLREG 

iy mov BO OOtR : MLREG,* 

De 20 MOV A 1 : 6614 
D2 000024 MOV a (SP) : *,ML.REG 

925462 MOV BLAST. TBL(RO) .R2 3 *,MLREG 

125466 MOV mi, -ADOR 1 

de f wy 46 ; MLREG,* 

9255C 000022 MOV (R1) : *,ML.REG 

92551 MOV SP) : ML.REG.MLREG 

de Biss 8 3 *,MLREG 

SEES, : 

125524 MOV mo 24 : MLREG,* 

12553 MOV #144,R2 : & $$TMP2 6616 
Ne 138: BEO 1 

; ; MOV L LY : &, SSTMP1 

BEQ $ 

i 14$: CLR 42(SP) : SSTMP 

Ne DEC R = $STMP1 

iY. BNE 14$ 

2 15$: DEC R2 : SSTMP2 


N 4 
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REV B PATCH 00 ROUTINE DECLARATIONS 1 “iar=1983 18300343 PA: <NEALE>PMSKL4.BL1.1 (54) 


74° 16$: 
GoR8e4 000020 





ww 
vw 
Nae 

+ 


* ,ML.REG 
* ,ML.REG 







“Sa 







eed wen UP met oo PD 
™ 


tem 


ME .OUT .MSG 


P.M7363.MSG,-(SP) D4 
 ) jlidaaiad 


Ss 


° SP ,* 





: SP,* 
040422" 17$: 


COL .NUM 
COL ..NUM,F INISH 


pqatenguaagaeeiges g2222" 


= 
2 


SEL .BNK 
SEL .BNK,* 


000016 


000014 


gugggg0g22933 





mam 
“Ss” 






=> ~ ~~ ae a 
ee @e Se 


. 
. 


2OOLS 
AW 
a 
ii} 
tm) 
ae 
Se Ge 


24$: 


4 
mm 
ae) 











BSKEL4 
REV B PATCH 00 ROUTINE DECLARATIONS 


036036 099706 000044 25$: 


: Routine Size: 323 word 
: Maximum stack depth per ” favecat tens 29 words 


BR 
ADD 


rs 
#44 ,SP 
PC 





o— 


iss-1 
PMASKL4. 


V2 
BL 


2 


12) 
1 (54) 


6076259 


6526 


ee eee eee ee 





BSKEL4 har2i9 7:57 -20 Bliss=16 y2(212) p 5 
REV 6 PATCH 00 ROUTINE DECLARATIONS : Sar 18 v8 1 PRD SNEALESPRISKLS OL 101° (55) s£3°6260 


routine VER_BLAST (ARRSBNK_SEL) : novalue = 
begin 


| 
i+ 
i "Funct fonal Description: 
After the proms have been blasted they 
! must ay ead feck to insure the data was 
! written corvertly. 
esineeattcanl 





ba Fo a routine reads the banks prom 
and compares it to the respective 
Poe data stored in the error map. 


On compare erors the rator will be notified 
of a condition D and uhe 


Format Forenaters: 
“Stores the array and bank select address. 


Implicit Inputs: 
- ERROR MAP. DEGRADE_MOD_REG, RET_STATUS 


Implicit Outputs: 
On compare errors this banks degrade mode register 
bit is set. 


Completion codes: 
none 


where the error occured. 





Side Effects: 
none 


Local 
e ‘Stores the paved rom eddress 
FINISH, iVariable ng s or 
ARR ; 'Stores which arrey 'S " selected for pm‘ing 





_ ERROR_MAP : blockvector (4, 512] volatile; ‘Make the error map look Like the blast table 


if .BNK_NUM_SEC eql 127 then FINISH = 127 else FINISH = 255; 'Is this a 16k chip 


RD_PROM_MODE ; read mode 
ARR_SEL = ARRSBNK_ SEL<.ARR_SEL_POS, ARRSSEL waize>s Loe Po yp Fated select number 


enn ens = ZEROES; ie prom 

_ADRS<11, 4> = .ARR_SEL: iLoad the array select number 
iner Si, AK from 0 to 3 do ‘Loop on all banks 

_ADRS<10, 1> = ZERO; 'Select the row addresses 












OL LLL ne ee ee et esi 


BSKELS 


REV B PATCH 00 ROUTINE DECLARATIONS 


EF 
SSNS & 


Seecestees 


SSSSSESERRS 


~ 
—< 


VISISSISISSISS 


sos 
CONAUL VINO 


o 
_—— 
UEWN2O0 


PAAAAAAAAAOAOH 


Rar2i9 16:07:57 OPS Liss-16 V2(212) Page 226 
shar=1993 18300323 Bee SNEAL >PMSKL4.BL1.1 (55) SEQ’ 0261 
‘Select the bank 

‘Look at all row addresses in the blast table 








PROM_ADRS<8, 2> = .SEL_8NK; 
incr ROW NUM from 0 to .FINISH do 
y= 


' 
} 






wRT_RH Ri (muh oA rie -PROA_ADRS) ; poor My prom addres 
DELAY (ONE_US); is * iwait for the prom deta to cone out 


; vy MAP C.SEL_BNK, .ROW_NUM, FULL_WRDJ neq .ML_ADDR CMLPD, PD_REGJ 


pease coer - the error 


brinty D.MSG, 0); 'R 
apt a we wt 


PRINT. si aa L; - SEL 
URBRR) < Set FUG: 











end; 
PROM_ADRS<10, 1> = ONE; 


incr cot. =NUM from 0 to .FINISH do 
= .COL_NUM; 
A_REG, [PROM_ADRS) ; iSelect the prom addre 


‘Select the column addresses 
‘Look at all the columns 
‘Select the column eaerences 






MRT id tPA, P 
for the prom dete. to come out 
: he mp " SEL_BNK, .COL_NUM + .COL_BASE, FULL_WRDJ neq .ML_ADDR CMLPD, PD_REG] 


BRE ee 
al A 8 


pat ice 0); Report the error 


sift: » SEL 
SET_FLG; 





‘Clear out the prom read mode - - 


-SBTTL VER.BLAST ROUTINE DECLARATIONS 









VER .BLAST: . m1 SAVES on 

6° 000177 oNUM.SEC #177 ; | 6681 
M7 .csp) : *, FINISH 
#377, (SP) : *, FINISH 





ML.ADDR,R1 


EE 


BSKELS 
REV B PATCH 00 


15 
14 
& 


— 
> 
> 
7 


- = ad Ro = 
ne 
ett 4 4H 


} 


1 
1 
1 
1 
1 
1 
1 
1 
| 
61 
1 
1 
1 
} 
: 
1 
1 
1 


IO OOS 
ye 


“am Or bi 


4 
++. 





i 


ROUTINE DECLARATIONS 
000020 


000012 





000012 


gugggggarcscancesnmaeaccnera ness BycsaEas aes 


aoe 


od | 


— E 
18-Ra 


24(R1) ,20(SP) 
ag 





y 
r-19 
r-19 


BS 18:46:01 


TOPS-20 B 
cr eNeALe 


; *,ML.REG 


; *,MLREG 
MLREG,* 
ARRSBNK . SEL ,* 











Liss-16 V2(212) 
>PMSKL4.BL1.1 (55) 


6699 


eer eee LLL: LLL LE LLL LLL OO 


BSKEL4 
REV B PATCH 00 ROUTINE DECLARATIONS 


74° 
+ 900084 


' 
+> 
‘ba 


> 
r¢ 


-~ OORT v? «ft «ist «? 
se $3 
ad > +" . 


4 + 
POAC 
ws 


AACN 


>. 


$3 


AD 


ty. 


+x 








F 5 


WBomar=1988 18:46:41 


) 
»,24(SP) 







38922 






- WORD 

- WORD ON.D.MSG 

- WORD 

MOV 27 (SP) 

MOV oa (SP) 

MOV BoB Cai Nt .= (SP) 
MOV #3,-(SP 

MOV a 

TRAP & 

MOV R2,R0 

ASR 

ASR 

ADD ase eee MOD .REG,RO 
MOV 2 (SP 

MOV , -(SP) 


@ 
deorey 
oe 





aah beet BE LEE LE eee re 


TOPS-20 Bliss-16 Vv2(212) 
PA:<NEALE>PMSKL4.BL1I.1 (55) 


* ,ML.REG 
* ,ML.REG 


; SEL.BNK,* 


ARR.SEL,* 


SP ,* 
SEL .BNK ,* 


; SEL.BNK,* 


ROW. NUM 
ROW. NUM, FINISH 
* ,PROM.ADRS 
COL .NUM 






PROM. ADRS 
COL .NUM,PROM.ADRS 


PROM ADRS -ALREG 
a SS ihe? 
« ,SSTMP1 


Sin 





SSTMP2 
COL .NUM,* 


Pace 228 
£39608" | 


6702 


6703 


6704 


6701 
6693 


6709 
6711 
6715 
6714 


6715 


6717 


ee Nee aa. 
ee we ee ree — - 


























BSKEL4 TOPS=20 Bliss-16 v2(212) Page 229 
REV B PATCH 00 ROUTINE DECLARATIONS PA: <NEALE>PMSKL4.BL1.1 (55) SEQ 0264 
ettn % } 090066, MOV * ,ML.REG : 
176 ° e e : 

sf - 998884 op t Ssmchee 

226606 BEQ 

02660¢ TRAP Py 6720 
+ ee 0 ~ WORD 

2266, . WORD -D.MSG 

# + . ' ~ WORD 

02 561 MOV R2,-(SP) : SEL.BNK,* 6721 
126614 MOV ~=(SP) : ARR.SEL,* 

126616 00526 , MOV #A.B.PRINT,-(SP) 

266 3 MOV #3,-(SP) 

26606 whip RO P+ SP ,* 

92663¢ MOV R2,RO : SEL.BNK,* 6722 
te? ASR R 

126642 040424" ADD §  #DEGRADE.MOD.REG,RO 

12664 ; MOV ) 

12665¢ MOV ; SEL.BNK,* 

1266 177770 BIC (SP) 

02665¢ 000001 MOV 

126664 9000006 JSR 

126670 16 ADD : 6719 
126674 168: INC : COL.NUM 6711 
12667¢ 000010 178: wr RS : COL.NUM. FINISH | 
194670 INC Ps SEL .BNK 6688 
Jet a CMP 4 SEL .BNK,* 

d2¢ BGT 

92671 JP 

2 18$: OV -ADDR,R1 : 6727 
026 MOV R1).16(SP) 3 *,ML.REG 

2¢ ROY SP) : ML.REG,MLREG 

1567, pb Py * MLREG 

9267 mov R01 cri : MLREG,* 

026 MOV Tim. 4(SP) Pa * ML REG 

doe mov 1 (SP) RO : ML.REG,MLREG 

12677 a SOTO RS 

127000 Bics 47.RO ; *MLREG 

2706 aay R5, a1 e * ,ALREG 

1370" MOV ACh : MLREG,* 

570 RTS PC 





: Routine Size: 248 words 


BSKEL4 
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: Maximum stack depth per invocation: 27 words 


ighar=t3 


13306341 


ae 


0 





meee ee = 


Liss-1 


vetele) 


ALE>PMSKL4.BL1.1 (55) 


seo7G268" 


Qeerceee «2° >< 


RSKEL4 
REV B PATCH 00 


6731 


ee 


“far=1982 19: HE TOPS-20 Bliss-1 vetee) 
ROUTINE DECLARATIONS i r-1982 15:46:4 PA: <NEALE>PMSKL4.8L1.1 (56) 
eS (ARRSBNK_SEL. TSTED_BNK) : novalue = 
n 
oe 
; Functtenes Description: 
After the proms good blast the 


fy ve been oot ane the proms are read for 9 good 


selected a array 5 write che and made sure that a lasted rows and 


columns ha 4, B. Seeestells lees 


rrors are not ‘ero: in any bank warrents re array to be replaced. 










UNC e 
single chip failures ade mode banks is tolerat not constiture an error. 
single chip failures in ade node banks is not tolerated. and will cause an 
error and that the array be replaced. 
i Formal Parameters: 
: ARRSBNK_SEL : 
Stores the array and bank select address. 
- Licit Inputs: 
- BAD_BNK REG, FLG_REG, DEGRADE _MOD_REG 
i Implicit Outputs: 
*. none 


i Completion codes: 
i none 


i Side Effects: 
: none 





local 
NUM, ‘Stores the selected bank number 
ARR_NUM; ‘Stores the selected array number 
ARR_NUM = .ARRSBNK_SEL<.ARR_SEL_POS, ARRSSEL_SIZE>; !Load the array number 


iner Sti, OK from 0 to .TSTED_BNK - 1 do 'Verify all banks 
NUM = .ARRSBNK_SEL<.BNK_SEL_POS, BNKSSEL_SIZE>; ‘Load the bank sel number 
: f BAO OK SEE C .BNK_NUM] ‘Is this a bad bank 


in 
Peo CHIPS ( ARRSBNK_SEL); 


if S_CHIP_TBL (ZERO) geq ZERO 
then 


begin 
if .FLG_REG CF_UNC_ERR_FLG) 
then 








‘Find any bad bits 
‘Were any bad bits found 


‘was it an unc error 


Pa 
SEQ 


231 
266 


re eee ee 


-Mar-19 TOPS-20 Bliss=-1 y2(2t2) 
1e-Rer=1962 19380324 PA:<NEALE>PMSKL4.BL1.1 (56) 






RR_MSG, 0); ‘Report the error 
ARR_NUA) ; - 


BSKEL4 
REV B PATCH 00 ROUTINE DECLARATIONS 
3 


ERAsr (ERR_11, UNC 
TB (REP_ PRINTS 





a 


begin 
| not .DEGRADE_MOD_REG C.BNK_NUM] !Is this not a degrade mode bank 


ie (ERR_12, MEM_ERR_MSG, 0); !Report the error 
TB (REP_PRINT,~ .ARR_NUM) ; - 


end; 
end; 
~~ rr ae = .ARRSBNK_SEL + .INC_BNK; !Select the next bank 











end; 
-SBTTL VER.ERROR.MASK ROUTINE DECLARATIONS 
0000006 wanna ane 
000020 MOV 3 
ADD : ARRSBNK.SEL,* 
S502 my 
MOV 
CLR 
0000006 JSR 
MOV 3: *,ARR.NUM 
on : SEL.BNK 
000030 1$: FOV : 
ADD : ARRSBNK.SEL.* 
$508 my 
MOV 
SR 
0000006 J 
MOV ; *,BNK.NUA 
prt : BNK.NUA,* 
ASR 
MOV 
040420" ADD 
MOV : BNK.NUM,* 





Page 232 
SEO 0267 


6731 
6766 


6770 


6772 


° 


| 
| 


Page 235 
SEQ 0268 


TOPS=-20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BL1I.1 (56) 


57 
741 


7 
4 


8306: 


1 
1 


g-har=1982 
-Mar-19 


1 
1 


TIONS 





REV B PATCH 00 ROUTINE DECLARA 


BSKELS 


m s¥% 8 5 z Be OSe 
FE §§ § & 5 OCS RSBss 
ad 
br 
a 


SEL .BNK. TSTED .BNK 


3 
aed 
a 


3 ARRSBNK.SEL,* 

; ARR.NUA,* 
BNK .NUM, * 

; ARR.NUA,* 


: SP,* 
: SP,* 
®, 










° os 
a. aw 9 * * 
ry) “a. ® wo w” eee 
~ ~N was uw = r 4 
— = = e& a. tt 
oa & ww = * ce 6.=5: = 
eo Te oe lag wm = Hd = a et wa = of & 
* '2@— Baan u. m. ‘ae * ot & 32.5% 4 
= I Puehne é Pee ONE Sot 5 oz VS.~ SSS eE° 


a 
sania tail rrr ot SSS S - 03888 2 ngsee 
SS SSSSson uu sKas Ss SoS Soe aS Sere ose g= 22 tee eee or esses 





rd aoe 


165114 
000002 040422" 
00002 
040424" 
177770 
000001 
900010. 
00002 
000006 
000010 
000024 


Ls 

KS So 

~ wT 
- toad 











Kreme 
a 
Srenaneas ~~ 
-_ pAb <So5SS —> 
IOQMVonmy oc 


ah 4 bth eh NNN he 


- 
- om ) ae) ae 1) ee eT ee | oe | ae oe 1 ee oe ee | ce eT ce | me | oe | oe | ome Tom Tom | cee | cee of ee | oe Toe le ee me ee 





—_ mm ee ee _-—-—-. 


r=1983 19: ad TOPS-20 Bliss-16 V2(212) Page 234 | 





BSKELS 18-ha 
REV B PATCH 00 ROUTINE DECLARATIONS 18-Ma 


r-19 PA: <NEALE>PMSKL4.BLI.1 (56) SEQ 0269 
000010 ADD #10,SP ; 732 
05783 800007 RTS PC ; $731 | 


: Routine Size: 112 word 
: Maximum stack depth per " tauecat tent 18 words 


BSKELS 
REV B PATCH 00 


Ww 
ces) 


$ 
55 


No 





a | 


1982 16:07:57 TOPS-20 Bliss-1 ve tele? 
1983 18346341 PA: <NEALE>PMSKL4. 1 (57) 


INITIALIZE CODE SECTION Igcfar 
Zsbttl "INITIALIZE CODE SECTION’ 
INITIALIZE CODE SECTION 
BGNINIT; 
Local 
‘Hardware ptable entry temporary storage locations 


ntire system 
e array module 
ank 










prom 

raneters ? Oz aici 
correc 

inardware sptable bot oy ” 


PTBL_PT a 

LUN; ‘Supervisor | t number variable 
1 Saal gtr ONE ‘where more one ptable built 
Baasr a 9, HO_ERR_MSG ‘Report the error 


PRINTS ONE_MSG, GTR “ses .° iReport what the error is 
PRIN INTB (On -mee” OniT PES ec), iReport that the first ptable built will be used 











SUNIT = 0; !Only one drive is to be tested 


of the inpact -* sate program the 
systes only the start c wit be 
recognized to start eames execution 








: f oat t (READEF (EF_START)) ‘Was the start command used to start the program 
BRASE CERR.1 ILL CHD MSG iReport the ¢ 
PRINTB , START. ase)?” iReport at t the error is 
DODU (. Ts ‘Drop this 
— {60 to the clean up code section 


The contents of the first p-table built (lun 0 ) 
will be the. selected progran parameters. att other remaining 
P-tables built will be ignored. 


sea 2 0 


35 


ES - 


| ee ee 





BSKEL4 -Mar-19 757 TOPS-20 Bliss-16 V2(212) v 236 
REV B PATCH 00 INITIALIZE CODE SECTION 18-Rar=1982 18:06:2) PAL NEALESPMISKLS.BL 11° (57) sEQ0271 
6859 
if (GPHARD (.LUN, PTBL_PTR)) eql ZERO ‘Is the first ptable present 


‘Report the error 


then 
begin 
E re -. ashe etibres MSG 
PRINTB aces iReport Suppress message 














5 PRINTB fd “MSG, RET_ yeas mse ‘Report prt 19 to drs> 

$ DODU (.LSUNTT); ‘Drop this 

; b iGo to the Ph unit code section 
: 9 else 

; 4: begin 

: 7 i Input to the program the hardware ptable 

- 4 i entries and sto og them into the temporary 

; ie . storage locations 

: $876 .((.PTBL_PTR) + %0'0"): 

: 5s ((.P ~PTR) + Z0'2"); 

5 th: ((.PTBL_PTR) + Z0'4'); 

; 2: = .((.PYBL_PTR) + 4016"); 

; 588 = [((.PTBL-PTR) + %0°10'5; 

; 5881 =".(¢.PTBL PTR) + 20°12"); 

ay. oid a sg ae oF 

: ttt =. -PTBL_PTR) + on18335, 

: [aR7 | 

: 6888 | Before we start, lets see if the operator 

: 885 : entered his parameters correctly. | 

; 589 é : 4 Dae CORRECT _HWTBL ‘Are the inputed parameters correct 
: 585 begin 2: 

: 585 NTB ( LD ic ‘Print some line feeds to be neat 
; 985 PRINTB (ONE _ASG, eg gt iPprint the suppress message 

589 PRINT (ONE-ASG, RET_DR _MS6) ; prone returning to drs> message 
; 5895 | ¥ iGo t to the elses up code section 
: x D1 ’ else 

: $4) begin 2 

; $4) : , ld the run time parameters 

: 5906 arr$bnk_ sel = zeroes; ‘Load the array & bank select uartaple uith zeroes 
: 59 ML _gRH-BASE BASE _HWTBL; iLoad the wi-11 bese address in 

; 908 ML_OUT = .DUT_HWTBL; ‘Load ml_dut with the divices drive “Select number 





Set up 16k or 64k mos ram run time parameters 


BSKELS 
REV B PATCH 00 INITIALIZE CODE SECTION 





if .OPTION_MWTBL eql ML11A 
then 










zane 


else 


begin 


in 


a 
p= ] 


chia} 44 


4 





in 
LST_TSTED_ARR = 0; 
RAND_PASS = 8: 


ABNER SEL 
end 





“nnn 
om 
o ad ad 


~“ 


run time parameter for masking 
ventire system, an entire array 





= 4; 
SEL<.ARR_SEL_POS, ARRSSEL_SIZE> = .ARR_ NO. HW 


rr ae te 








i-BarSoe 19:97 TOPS-20 et ise@t¢ v2(212) 
18-Mar-19 PA: <NEALE>PMSKL4.BL1.1 (57) 


‘Is this a ml-11la option 16k parts 


‘Load the column base offset 

pees the bank increment variabl 

the array increment variable 

! anks r of se tors variable 
‘Load the pres 


select pos be on constant 
'Loat the bank select posit constant 
‘Load the maximum columns per chip variable 











‘Load the column base offset variable 

‘Load the om 4 increment variabl 

‘Load the array rnerenant variable 

‘Load the banks number of sectors variable 
selection position constant 

Dank. se erect on position constant 

mum columns per chip variable 





'Is the entire ml-11 system to be prom maint 


‘Select tee drive under t 

1; Read and save Py stots 
‘Do two pon = data passes 
iTest four banks per array 


'Is a single array to be prom maint 


‘Load t variable to test only one arra 
~~ of random data 4 7 


iDo ¢t er ee passes 0 
iTest $s on the array 
TEL; 'Select vnich array to test 








sea wa? 


BSKEL4 
REV B PATCH 00 INITIALIZE CODE SECTION 


Se Ge Ge Fe Se Ge Be Ge Ge Ge Fe Ge Fe Fe Se Ge Fe Se Fe Se Fe Se Se Fe Fe Se ee Ge Ge Se Be Se Be Fe Ge Se Ge Se Se Ge Beas Sete Be Se Be Be FH Fe ee ae 





ea eee eee Sam oo EE eOOoOreRNnmnL.L SS Qa 2 66a Cres ee 
— - 





18-Mar-1 4:41 PA: <NEALE> 
) Ee eee ‘Is a single bank to be prom maint 


begin 
ist TSTED_ARR_= 0; ‘Load | variable to test on one arra 
RAND PASS = 13; iDo five passes of random dat . r 
TST 5 BNK = ‘Test only one bank 
ARR "SEL<. ARR. SEL_POS, ARRSSEL SIZE> = .ARR _NO_HW 
Selec t which 3 arra ¥- pron maint 
ARRSBNK_SEL<.BNK_SEL_POS, BNKS$SEL give © -BNK_NO 

(Select which Bank to prom maint 






t 
! The hardware questions were not soeweres 

! correctly. Masking either a system, array 
i or bank was not selected. Report the error 
; and rerturn to >. 


ERRSF (ERR_2, HQ _ERR_MSG, 0); . {Report Li error 

PRINTB (ONE_MSG, HQ_ASG); | iReport what the error is 
PRINTB (ONE_MSG, SUPRES_MSG); i t suppress message 

PRI NTB CONE Tse. RET_DRS_MSG); iPrint, returning to drs> message 









LN; 'Go to the clean up code section 
end; 
end; 
; end; 
: VER CZMLCB ADDED PM_COUNT 
PM_COUNT = 0; ‘Init the prom maint counter 





4 . 

Added this init code of this structure here. 

The prom maint error log — o sreres © dl ee 
detected all bad rows a igh + he coe ey 

the Ae time Sy | pee ee s table is stored 


This code initializes this structure 9 zeroes 
before starting execution of the exerciser. 








rerio 16: 07 :57 TOPS-20 Ussct6 x y2(212) 


(57) 


Pa 38 
SE 396.253 




























D 6 
BSKELS 18-Mar-1 16:07:57 TOPS-20 Bliss-16 V2(212) Pa 39 
REV B PATCH 00 INITIALIZE CODE SECTION 1e-nor 1985 18526524 SRP eMLESPHEKL -BLI.1 (57) SEQ? 027% | 
; 15 — x from 0 to 127 do ‘Clear the prom maint error log table | 
Ps n 
: 1 PM_LOG C.index, WRDS$_0] = ZERO; ‘Clear word zero 
; 7 18 PM_LOG C.index, WRDS_1J = ZERO; ‘Clear word one | 
: 1 end; 
: 1 ENDINIT: 

.SBTTL LINIT INITIALIZE CODE SECTION 
; 004167 LINIT: JSR R1,$SAVE ; 6806 
) 1 14 SUB #14,SP 
i 000001 CoP LSUNIT a1 ; 6829 
1 , TRAP 34 ; 6832 
' 5 - temmecans 
1506° #GTR.MSG,-(SP) : 6833 
Biss 338 pegs 
1274 $P.RO : SP,* 
1274 4 
1274 1 62° #UNI : 6834 
5 ‘ 

127444 003536 # il 
i. + :; #. 
ries Bienes ata r : st 
127 600020" #6 : 6844 
si a i 
927474 TRAP st : 6847 
if “WORD ORE ILL. CAD.ASG 
02 1032' nov ' #START.MSG,-(SP) ; 6848 
F 556° MOV HONE -RSG,~ SP) 
de 000002 MOV #2,~-(SP) 
nS MOV aed e SP ,* 
iF 799 0000006 MOV, —_LSUNIT..RO ; 6849 
2 104451 TRAP 1 
5 000006 ID OG. SP ; 6846 
027540 2$: CLR R 5 : LUN 6858 
Ne 1 OV ARS : *,PTBL.PTR 
€19755( a0%4 TRAP 54 : 6863 
127552 000003 . WORD 































E 6 | 
18-Mar-1982 16:07:57 TOPS-20 Bliss-16 v2(212) Page 240 

BPN b PATCH 00 INITIALIZE CODE SECTION 13 er =} 985 13397323 PA:<NEALE>PMSKL4.BL1.1 (57) SEO 0275 | 
0275 1340° - WORD LUN.MISS.ASG | 
5 * 
+ 1256" MOV #SUPRES .MSG,-(SP) : 6864 
. sizes a ear 
: 7%4 MOV RO : SP,* 
137576 4 TRAP 
127600 01 1316° MOV #RET.DRS.MSG, (SP) ; 6865 
seme = Gistle 092538" MOV "MSG_-(SP) 
127610 01 MOV #2,~(SP) 
127614 MOV $f 0 : SP,* 
2761¢ TRAP 4 
2 7¢ 4 MOV ° Ps 6866 
276; imp ok 
“ ° 4° P 
097634 eR e860 
127636 38: MOV (RS) ,6¢ : PTBL.PTR 68 26 
0 Oh mov tna 22 : SPTBLP 6878 
37656 ROY 6 | : 6879 
127662 MOV 5, : Pp 6880 
37666 “OV 12 )° : #(PTBL.PTR) .RH.BASE.HWTBL 6881 
SIRF" MOV 14(R5)., : #(PTBL.PTR) .DUT.HWTBL 6882 
2767 Boy BERS). SS CPIBL PTR) CORRECT. MUTBL 6884 
037706 4S: ROR : > CORRECT .HWTBL : 6892 
09; HOV LFS, ~(SP) ; 6895 
Je : ad gs 2 ) ‘ SP e 
aes Tap i — 
1277 26 mov #SUPRES .RSG, (SP) : 6896 
57736 MOY me eUSP) 
vy MOV $7 -RO Py SP,* 
°¢ TRAP 4 
197766 mov #RET.DR : 6897 
0275 mov eet 
8776 mov, : Pos 
057766 MOV 6898 
ae 
0 777 000014 ane : oe93 
13000. ° 5$: CLR : 6906 
230010 oe374: Hy : RH.BASE HWTBL.* 6907 
ren) 8 : -MWUTBL.* 
03002¢ | Det > OPTION. HWIBL ears 

























BSKEL4 TOPS-20 Ol ise 16 v2(212) Page o1 | 
REV B PATCH 00 INITIALIZE CODE SECTION PA: <NEALE>PMSKL4.BL1.1 (57) SEQ 0276 | 
112767 MOV e : 6916 
912767 MOV a : 6917 
912767 MOV £ $ 6918 
12767 MOV #1 ° 6919 
1 ror MOV a s 6920 
1 re MOV & : 6921 
912767 MOV # ; 69 
Hie BR 7 P 697 
1276 6$: MOV if ; 69. 
: MOV a $ 
57 MOV ti 3 
57 MOV a 3 69 
12767 MOV #1 ; 
12767 MOV #4 3 6931 
57 MOV #4 s 69 
132766 7$: = BIT : *,SYS.HWTBL 6941 
9014 BEQ 
16 MOV $ 6944 
116566 MOV : *,ML.REG 
1164 MOV ; ML.REG.MLREG 
16 MOV 
' BIC 
B1¢CB ; *, ALREG 
BIS : *,MLREG 
MOV 
MOY 3: MLREG,* 
MOY ; 6945 
Moy 3: *,AL.REG 
MOV : ML.REG,* 
ASR 
ASR 
SAB ORS 
ae #177740,R5 
MOV R5.LST.TSTED.ARR 
MOV #4 ,,RAND.PAS $ $946 
MOY #4, TSTED.BNK : 6947 
es: BR 1 $ 6941 
: as ? 4(SP) : * ARR.HWTBL 6952 
CLR RE cs 2 6955 
ROY #10,RAND.PASS 3 6956 
MOV 44,1 : 6 
ov SP) 5 6 
MOV 
MOV 
MOY e ARR.NO.HWTBL.* 
JSR 
BR 1 ; 695 
10$ BIT 41,2 (SP) : *, BNK.MWTBL 696 
BEOQ 118 





—————- + 
ee ee 








































#14,SP $ 
PC 


r 
ven) 
wn 


BSKEL4 1 TOPS-20 Bliss-16 V2(212) Page 242 
REV B PATCH 00 INITIALIZE CODE SECTION 1 PA:<NEALE>PMSKL4.BL1.1 (57) SEQ 0277 
CLR LST. TSTED ; 6966 
¢ MOV #15 RAND. ; 696 
sc MOV #1, TSTED.BNK : 6968 
¢ MOV #ARRSBNK .SEL,-(SP) : 6969 
sc MOV ARR POS ,-(SP) 
fi MOV #4 
C MOV R1 : ARR.NO.HWIBL,* 
oC JSR PC 
C MOV Fi SEL, (SP) : 6971 
aC MOV POS ,-(SP) 
MOV #2 
C MOV 14 SP) : BNK.NO.HWTBL,* 
: ee 6963 
11$: TRAP § ; 6982 
.WORD 2 
“WORD HQ.ERR.MsG 
.WORD 0 
MOV ; 6983 
MOV - 
MOV #2,-(S 
MOV SP,RO : SP,* 
TRAP «14 
MOV ASUPRE (SP) ; 6984 
MOV : §p) 
MOV #2,-( 
MOV P ; SP,* 
TRAP 4 
MOV #RET.DR ; 6985 
MOV MS 
MOV #2,~(SP 
MOV RO 3; SP,* 
TRAP 4 
MOV LSUN : 6986 
TRAP 5 
TRAP =. -& 
12S: ADD : 6961 
13$: ADD : 6950 
14$: CLR : 6998 
CLR : INDEX 7015 
15$: OV : INDEX,* 7017 
ASL 
_ ASL R 
CLR PM.LOG(RS) 
CLR PM. LOG+2(R5) 7018 
INC RG 7015 
CMP R4.4177 
BLE 15$ 
ADD 6806 


: Routine Size: 339 words 


ee 


BSKEL4S -Mar-1 :07:5 OPS Liss-1 veCele) e 4? 
REV 6 PATCH 00 INITIALIZE CODE SECTION 1p-har=1982 18:07:24 rrsczo age .BLI.1 (57) 56076298 
: Maximum stack depth per invocation: 19 words | 





TTL LSINIT INITIALIZE CODE SECTION | 
C,LINIT 7019 


.SB 
O3pess Toceit 4 176526 LSINIT::JSR PC, 
TRAP 11 
207 RTS PC | 


: Routine Size: 4 words 
: Maximum stack depth per invocation: 0 words 





LS a 





BSKEL4 18-Mar-1982 1 T 0 Bliss-1 veCel2) p 44 
REV 8 PATCH 00 MAIN PROM MAINT CONTROL CODE 1 18-har=1962 18; or? PA: ALE>PMSKL4.B8L1.1 (58) 55376299 
Zsbrtl "MAIN PROM MAINT CONTROL CODE’ 
Main prom maint control code 


GGNTST: 

'+¢ 

j Femet tenet Sgt beg 

memor y systes with its mostly array technology has the facil- 
ite to offset around known bad memory locations in its memory arrays. 
Initially, these memor ares s are tested for ba column 
dress locations and 4 a ee o ys a p ~ Mat on is stored in 
on the array pw Bang “thi g rest 3 dane on a special 





ory tester by Memory Manufacturing. 


The design of one ae has also provided Logie when under 
software contro : eee? an array qoeuies ) iSetting information. 
This logic is to J “uett tional memo menery ¢e re disco- 
vered bad after the system y One: ait manufacturing fact lity. 


Program Execution Overview 
1. Via software stion section t the rator for 
am soramaters and build eke van fine parameters which 
controls the prograns saamattan, 
While in ECC-DIS do Mass Bus writes 
Reads to. find all faulty data chips (bits 


Store faili numbers faili tterns into the bad 
chip table og fee? "chip. 5 A ae = 


3. Ifa - Err occurred during Step 2 


do Singl in “ne Di cond be Mode 


ads fo fin Pd lt “x Chips 
(bits to 58) Pe” 


Store failing: numbers 
failing Tang’ chip into ‘chip. anel’. 


$e 
Do not perform this step. 


4. eee oo Data Diagnostic Mode do single step DMA Writes and 
felting chip in the Benk under test with a failing 













2. write 


checks and 
Bo SEs In che 





SEER PERUSE RU RURUSURSEEE SES 


oor Tet ° 


5. While in Data peaeemette Mode do Single 


Step and 
read all words in all the sectors of the i. Yaa poy i 


Se Be Se Ge Ge Fe Be Se Se Ge Be Se Se Be Se Fe Ge Fe Se Se Fe Se Ge Ge Fe Se Se Ge FH Se Fe Ge Se Ge Se FH Se Be Se Se Fe Ge Oe Be Se Fe ee Be Be He oe 7 


~~ 0 cee = —— —=- —- 
——— re nt ee Se Se SSR EE ES OE | SE ee Se ee + EE ee I NR a = 


ee ce ee 2 = = ere 


J 6 


BSKELS 1 ~Ror= 1986 19:97:37 TOPS-20 Bliss-16 V2(212) Page a65 | 
REV B PATCH 00 MAIN PROM MAINT CONTROL CODE 18-Mar-1982 15:44:41 PA: <NEALE>PMSKL4.BLI.1 (58) SEQ 02 | 
7074 | 
Ate On each read compare the read chip data to the forced chip | 
roe data. | 


On a compare error load the failing Row address into the error 
map at the failing Sector number. 


6. Repeat steps 4 and 5 with all failing patterns for this chip. 

7. Interigate the error for this chip and load the blast table 
at this chips nibble and bank position with failing Row and 
Column offset information. 


8. Zero the error and repeat steps 4 thru 7 for all failin 
chips in this Bank under’ test. . ° 


9. Zero the error map and chip_tbl and repeat steps 2 thru 
9 for all remaining banks under test within this array mo- 


dule. 
10. Interigate the blast table at each bank under test for this 
array see if the newly discovered nibble row and 


e Row and Column offsets 
exceed 14 for any one nibble position. 


lf any bank under test within this array module nibble off- 
sets ~ gag 14 


Segeee seeseseeeeeree 


. 
ms m= © ee © ee 6 ee © ee 6 ae 8 Ge 8 ee 6 ee 6 ee 8 oe 6 ee © Oe 6 ee 8 ce 8 ee 6 ee 6 ee 6 Oe 6 ae 8 ae 6 ee 6 ae 8 ee 6 ee 8 6 ee 6 oe 6 oe 6 ee 8 Or 8 oe 6 ae 6 ee 8 Oe 6 ee 8 ee 8 6 ee 8 ae 6 ae © Om 6 ae 8 Oe 8 ee 8 ae 6 8 ee oe 8 a © oe 





Se Ge Fe Be Se Be Be Fe Be Se Se Se Se Fe Ge Fe Se Ge Ge Fe Se Ge Ge Fe Se Ge FH Se Se Ge Se Fe Fe ee Ge Be Se ee FH Se we Se Fe ee Be Be ee FH Be we Bee, 


ay Mask as many errors e possible 

710 (maximum of 14) and leave the 

Aye remaining errors unmasked. 

cite Report to the rator a condition ‘C* 

ay message and continue program execution. 

7109 Else : 

ad continue program execution. 

aby 11. At each bank under test within this array module and at newly 
711 discovered nibble Row and Column offset position only, calcu- 
7114 late new check sum values. pcore the ney check sum va- 
7115 tues into the blast table at their respective Row or Column 
e118 position. 

7118 12. At each bank under test for this array module and at their 
7119 newly discovered nibble Row and Column offset positions only, 
71 blast the module under test UV proms with the new offset in- 
a, 1 formation. 

71 3 13. Read the module under test UV proms back and verify that 
4. ¢ blasting was successful. ! | 


BSKEL4 
REV B PATCH 00 





MAIN PROM MAINT CONTROL CODE 
If blasting was successful 
hen 


Formal Parameters: 
none 





Continue program execution 


else | 
Report the unsuccessful Prom blast. 


Report a condition ‘'D’ message and abort 
vursoer program execution and return 
) 


14. Verify the blasting has masked the newly discovered garers by 
renee: ing steps 2 and 3 at all tested banks within t 
module. 


is array 


at open iteration the table storing faulty chips and patterns 
3 


ld be zero. 


If not zero 


then 
If this is a degraded mode 
Array then 
1. Ignore single bit errors 


2. Call Array out for 
replacement of UNC errors 
occur 


If this is a non degrade 
mode tn then 
1. Report singie bit errors. 
suspect HW errors 


2. Report UNC errors 
suspect HW errors 


15. Increment the Array Selection count and repeat steps 2 thru 
steps 14 until all present Array Modules have been tested. 


16. Report to operator that Array Maintenance is completed. 
17. Abort program execution and return to DS>. 


Implicit I ts: 
Mn DEGRADE. MOD_REG, BAD_BNK, SBE_LOG, WRT_BUF 
Implicit Outputs: 

none 


TOPS=-20 Bliss~-1 
PA: <NEALE>PMSKL4.BL1.1 (58) 


Page 246 
56076281 


eee 


| 
; 


| 
| 


mm ee em a ee ee ems 8 | ee: we ere ee tet ee es Om ee ee 


BSKEL4 
REV B PATCH 00 


Se Ge Be Se Ge Be Ge Fe Se Fe Se Fe Fe Se Se Ge Se Fe Ge Se Fe Ge Se Se Fe Fe Se Se Se Se Ge Ge Fe Se Se Be Ge Se Se Se Se a, ae Fe Se Be Se Se Se be 


7 
; 
7 











ie-hor$io82 19:07 TOPS-20 Bliss-16 v2(212 


(212) 
MAIN PROM MAINT CONTROL CODE 18-Mar-19 PA: <NEALE>PMSKL4.BLI.1 (58) 


' Completion Codes: 
} none 

. 
! Side Effects: 
’ none 


local 
TEMP_TSTED_BNK 
TEMP” ARRSBRK_SEL:; ‘Temporary storage for the array & bank select variable 





Prompt the coareter that the 
prom maintanence program has begun 
and which oy is selected. 


PRINTB (ONE_MSG, BGN_MSG) ; 
PRINTB (DRV_SEL_PRINT. -ML_DUT); 


This outer loop will pm all selected 
arrays. It will pm from either one array to the selected 
' drives max arrays present. 





eT begin SEL from 0 to .LST_TSTED_ARR do ‘Test all selected arrays 


BREAK 
DEGRADE _MOD_REG = ZEROES; 'Clear the degrade mode register 
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FLG REG = ZEROES; ‘Clear the Re pegreter 
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PRINTB (ARR_SEL_PRINT, .ARRSBNK_SEL<.ARR_SEL_POS, ARRSSEL_SIZE>); 

do ‘Prom maint all the failing chips in this bank 
H+ oe (BNK_SEL_PRINT, .TEMP_ARRSBNK_ sELEs _SEL_POS, BNKSSEL ~SIGE>); ‘Print 
FB_CHIPS (. TEMP ARRSBNK Seen ie Find the bad chips in th 

PM” THIS BANK (. TEP ASO ‘bron fs maint the bed ad chips te cate bank 


TE ree =f, ncrement to next bank 
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until (.TEMP_TSTED_BNK eql ZERO) or (.FLG_REG CF_ABORT_ARRAYJ); 


The Dtast table has now been loaded with all 
: newly failing rows and columns within this tested array. 


if .FLG_REG CF_ABORT_ARRAY] 
— (ONE_MSG, ABORT_MSG) 
** begin 


er me ee —it—i— 


TOPS-20 Bliss-16 V2(212) 


Page 
PA: <NEALE>PMSKL4.BL1.1 (58) SEQ 0283 


‘Repeat until all banks are tested 


‘Was the abort array flag set during prom maint 
‘Report that prom maint for this array is aborted 


IN_BLAST_TBL (.ARRSBNK_SEL, .TSTED_8NK); !'Interigate the blast table 


if .BAD_BNK_REG eql ZERO 


PRINTB (ONE_MSG. NO_AD_MSG) 
else 


‘Are there any additional errors to blast 
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rn 
Par CHK_SUM (); ‘Calculate the new prom data check s 
BL_PROMS ( ARRSBNK_SEL); ‘Blast the proms with the newly failing rows/cols 
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VER_BLAST (.ARRSBNK_ SEL) 
VER_ERROR_MASK ( (-ARRSENK: SEL, .TSTED_BNK 


iveot ty that the blast was successful 


Tertiy that the blast masked out the new failing rows/cols 


end; 
end; 


SE SEA. = .ARRSBNK_SEL + .INC_ARR; ‘Increment to the next array 
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